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Mac, H robot californiano, a ma te bellezze at bagno ma 
non può avventurarsi troppo verso la >nea un'acqua 
t la didascalia alio tote appaga nei 1949 su Scienza 
Nh usuato Già allora la macchine automatiche scatena* 
vano nmmagiOAZtone- inpartcofafe tl robot, pu<ofa ohe 
periva PaiP0CòSiòvaccò , \robot9:' Significate. schian- 
to lavoro forzato 
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Un elaboratore ai apn iti e ime rete di computer é terre 
consentono olì astronauta amaricwo Edward Wtoi te la 
sua mmca passeggiata netto $pa&o, net 1965 Rispetto 
al progetto Memory. fa tecnotogia ha già fatto pasto da 
gigante Un esempio sono le foto sdirtele nello spazio 
che vengono registrate in forni a numerica su nastro a 
Jrasmasse a tene via radio Un elaboratore provvede 
poi a nponare r numeri sotto torma di immagine. Le 
tonalità pos&òifi tra bianco e nero sono 64. ogrv feto e 
composto da 40 nula punti La luna é vicina 



U n ragazzo e iJ suo persona] computer 
alle prese per sbaglio (e per gioco) con 
V eia bora lare centrale del pentagono - 
Uno scienziato impazzito (il progettista 
dell 1 elaboratore) e le sue teorie sui giochi. 

Sì chiamava Wargarrtes: forse il fUm 
più suggestivo uscito finora sul calcolato- 
re, le sue possibilità, i suoi possibili erro- 
ri, I vìden tornente gli sceneggiatori sì era- 
no studiati a fondo la storia delPelabora- 
zìone dei dati. Perchè dopo il censimento 
americano di inzio 900 (vi ricordate, ci 
eravamo fermati lì* la volta scorsa) ta sto- 
ria del computer intreccia sviluppo tecno- 
logico a strategie di guerra, diffusione 
velocissima di nuove macchine a ricerche 
affascinanti di grandi, geniali e bizzarri 
scienziati. 

Dalle macchine a schede perforate ai 
primi calcolatori elettromeccanici, il salto 
è breve. E' il 1936. KonradZuse,26anni, 
tedesco, sequestra il salotto dei suoi geni- 
tori e inizia a trafficare con cavi e relè. La 

E 

sua creazione si chiama ZI, e combina 
per la prima volta controllo programma- 
to e rappresentazione binaria dei numeri, 
Kon rad non lo sa, ma nella stessa direzio- 
ne lavorano in quel momento scienziati di 
nazionalità diverse, e non certo nel salotto 
di casa. 

Nel 1943 J. Presper Eekert, John W. 
Manchi* e Herman H* Goldstìne deiPfJ- 
ni versila della Pennsylvania propongono 
all 'esercito degli Stati Uniti il progetto di 
una macchina capace dì risolvere ad altis- 
sima velocità i problemi balistici d’arti* 
glieria. Si chiama ENIAC, ed è il primo 
calcolatore elettronico della storia. In un 
secondo effettua 300 moltiplicazioni, pesa 
oltre 30 tonnellate, impiega IH mila tubi 
elettronici e occupa 180 metri quadrati dt 
superfìcie. Per dimensiononi e capacità. 
l' ENI AC rappresenta un progresso im- 
menso rispetto ad esempio al Mark 1, 
calcolatore elettromeccanico realizzato 
dalli ni versila di Harvard e dalla Ibm 
nel 1944, 

Una tappa fondamentale viene toccata 
dal genio matematico dello scienziato un- 
gherese John Von Ncu maini, che realizza 


ED V AC : per La prima volta un elaborato- 
re memorizzava non solo i dati su cui 
lavorare ma anche le istruzioni per il suo 
funzionamento. Un’idea che ispira anche 
gli elaboratori successivi. 

Quelli delia prima generazione (agli in- 
zì degli anni Cinquanta). Quelli della se- 
conda, che costituiscono la base del pro- 


getto spaziale Mercury. Quelli della terza 
generazione, nata con il lancio del sistema 
Ibm 360 (1964) che impiegano circuiti 
iti ìcrominiatu rizzati . 

E infine, le idee accumulate in 300 anni 
di storia si sono sintetizzate nei computer 
di quarta generazione, quelli che si trova- 
no sui nostri tavoli. 
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Domande Risposte 

DOWVMDE UlZbOZIE 


AVVERTENZE IMPORTANTI 

Alcuni lettori richiedono, mediante Lasche- 
dii dell'ultima pagina, argomenti che sono 
trattati proprio nel fascicolo da cui è tratta La 
stessa scheda, A volte, infatti, Kargomeinto ri- 
chiesto viene ampiamente illustrato come vero 
e proprio articolo oppure mediante risposta ad 
un lettore, 

Sì prega, pertanto, allo scopo di evitare inu- 
tili ripetizioni, di leggere attentamente queste 
pagine perchè, nella scetta delle domande che 
selezioniamo per La pubblicazione, privilegia- 
mo, ovviamente, quelle comuni alla maggior 
parte dei lettori. 

Sprile 

C Vorrei sapere che cosa è esattamente uno 
spritee se limita la versatilità del mioC-16 non 

i 

possedere sprite* ( Francesco lozia - Ispi ca} 

• Uno spirito ir una “figura" programmabile 
che. con semplici istruzioni può essere sposta- 
ta in lungo e in largo sullo schermo del televi- 
sore. Il principale vantaggio di uno sprite con- 
siste nel fatto che se viene fatto spostare a 
destra non è necessario provvedere a “cancel- 
lare" la sua immagine dalla posizione 
precedente. 

Se. ad esempio, vuoi spostare un carattere 
di venti “posti" luttgo una riga dello schermo, 
puoi ricorrere ad un programmino del genere: 
100 PRINT CHR$(147) 

ILI) FOR1+ITO20 

120 PRINT “A";130 POR K~ ITO 50 

140 NEXT K 

ISO NEXT I 

La prima riga cancella lo schermo, mentre 
la IKK con la ISO. provvede a stampare uno 
dopo l’altro j venti caratteri +, A" grazie atta 
presenza del carattere di punto e virgola ( ;) di 
riga 120. Le righe 130 e 140 generano un 
“ritardo" in modo da rendere visibile l'anima- 
zione, In questo modo, però, il carattere “A" 
si muove verso destra ma lascia la sua presen- 


za dietro dì sé. 

Por ovviare a questo inconveniente aggiun- 
gi le seguènti linee: 

125 PRINT CHRS( 157) 

145 PRINT CHRJ(32) 

facendo attenzione a digitare i caratteri di 

puntoe virgola. 

Il carattere CHR5(!57) sposta il cursore 
alla sua sinistra mentre CHRS(32) rappresen- 
ta lo spazio vuoto (come quello prodotto dalla 
barra spaziatrice). 

IE risultato che si ottiene è l'animazione del 
carattere “A" che sembra spostarci verso de- 
stra mentre, invece, ò la successione di scrittu- 
re e successive cancellazioni in diverse celle 
video del televisore. 

E ‘ chiaro che le cose si complicano notevol- 
mente se si desiderano effettuare spostamenti 
in alto, in basso o in diagonale. Figurarsi, poi, 
il caso in cui si desiderano spostare più carat- 
teri contemporaneamente allo scopo di gene- 
rare immagini più grandi! 

I vantaggi degli sprite che . presenti solo nel 
Commodore 64, possono essere ben otto con- 
temporaneamente, evitano tecniche compli- 
cate di programmazione e consentono, Ira 
l'altro, di sovrapporsi, senza cancellarti, ai 
caratteri alfanumerici presenti sullo schermo 
e di farli riapparire quando si allontanano. 

Se ciò non bastasse, tieni presente che gEi 
sprite si possono muovere di un pixel alla 
volta e non di otto come nel programmino 
prima esaminato. Un carattere, come è noto, 
può occupare una ben definita cella di memo- 
ria a differenza dello sprite che può sovrap- 
porsi ad uno qualunque dei 64000 puntini ele- 
mentari dello schermo del C-Ó4; 

II C-lft non possiede gli sprite ma non per 
questo devi considerarlo limitato. Molti gio- 
chi possono esser creati mediante la ridefini- 
zione dei caratteri come si può fare con il Vie 
20 che vanta giochi non privi di interesse. 

<7 (\\ ^ 
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Imparare il Basic 

□ Sono un ragazzo di 12 anni e possiedo un 
C-ltì ma da mesi cerco disperatamente qual- 
che cassetta magnetica che insegni il linguag- 
gio Basic. Dove trovarle, se esistono? { Massi- 
miliano Bonizzoni - Fonialbera) 

• Per venire incontro alle esigenze dei princi- 
pianti (e non) come te. è in distribuzione nelle 
edicole un corso dal titolo "24 ORE BASIC" 
interamente su nastro. E’ sufficiente caricare 
in successione le varie cassette della confezio- 
ne per comprendere l'uso delle istruzioni del 
tuo computer. Non dimenticare, però, di te- 
nerti aggiornato seguendo le pagine di questa 
rivista.,. 


/ 1 - 

Per i nuovi e<mt modo riani 

i 

Possessori dei nuovi nati da Mamma 
Commodore (il C 16 ed il Plus 4) avranno 
sicuramente notato che accanto al pul- 
sante d'accensione della macchina si tro- 
va un pulsammo bianco. E' il famigerato 
tasto RESET che consente di ripristinare 
tutti ì vari puntatori utilizzati dal Compu- 
ter durante il suo lavoro. In pratica pre- 
mendo il pulsante RESET è come se si 
spegnesse e riaccendesse il Calcolatore. 

In realtà non accade proprio questo in 
quanto la RAM utente non viene a per- 
dere l’alimentazione elettrica di cui ha 
bisogno per vivere e quindi non viene 
inizializata. Quello che voglio dire è che 
se vi era in memoria un programma que- 
sto vi rimane, anche se per poterlo nuo- 
vamente utilizzare si deve ricórrere ad 
alcuni trucchi (o ad appositi programmi 
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che implementino la funzione OLD), 

Ora. avendo, sia ilC 16 che il Plus 4 V su 
ROM interna un programma monitor 
per il linguaggio macchina, ho scoperto 
un piccolo (rocchetto che consente di re- 
cuperare un programma che abbia fatto 
andare in “Crash” la macchina. E* infati 
sufficiente premere il tasto di <RUN/ 
STOP> posto sulla sinistra della tastiera 
e contemporaneamente il pulsante 
RESET, 

Questo ci permette di entrare in Moni- 
tor e quindi, se ne usciamo con il tasto 
<x> seguito da <RETURN>, e chie- 
diamo il LIST vedremo che il nostro pro- 
gramma c lì bello e pronto per essere 
salvato e/o modificato. 


/ N 

Ancora guirautu-repeat 

J Sul Ni. 14 a proposito dell’ auto ni pt?ut, scri- 
vete che si può ottenere col comande» POKE 
656*128* So, pero, die è possibile ottenerlo 
anche con POKE 656,255 ed annullarlo con 
POKE 256,32. Chi ha ragione? (R.Ventura - 
Siracusa) 

m Tutti c due. Della locazione 656, intani, £ 
sufficiente sellare (mettere al valore unitario) 
il settimo bit per abilitare la funzione. Ciò 
vuol dire che qualsiasi numero superiore a 127 
è adatto allo scopo come pure un qualsiasi 
valore inferiore a 128 disabilita l'auto repeai 
per tutti è tasti. Altri valori limitano fauto- 
re peat alla pressione della barra spaziatrice, 
ai tasti di controllo cursore eccetera. 



Morsetti dei registratore 

D Che tensioni sono presenti sui morsetti del 
registratore e che cosa avviene esattamente 
Oliarcelo si preme uno dei suoi tasti? 


• Sul manuale del 064 (e del Vie 26) è ripor- 
tato lo schema del connettore per il registrato- 
re. Ss tenga presente che si circuito stampato, 
benché sia a doppia faccia, presenta connes- 
sioni tra i piti superiori ed inferiore (sono, 
cioè in "corto 1 ). Utilizzare la parte superiore 
od inferiore È, di conseguenza, la stessa cosy. 
Ciò premesso precisiamo che: 

1) In massa t comune (GDN piedini A l): 

2) la tensione di + 5 volt presente sui pin B-2 
è utilizzala, insieme con la massa, peralimen- 
tare i circuiti integrali del registratore.: 

3) il motore viene invece alimentato, quando 
serve, dai pin C-3; 

4) sui pin D -4 ed E-5 sono presenti, a seconda 
dei momenti, i segnali di invio o lettura dati: 

5) i piti F-6. se collegati., brutalmente con In 
massa GND da un opportuno deviatore, "co- 
municano" al computer che un tasto del regi- 
stratore è stato premuto. Se infatti apri il regi- 
stratore puoi renderti conto, utilizzando un 
comune tester, di quanto asserito. 

Stai attento, comunque, ad intervenire sui 
circuiti o sul connettore: un banale corto cir- 
cuito, specie nella sezione alimentatrice, può 
mettere fuori uso il tuo personal! 



Petspeed e comando Dim 

□ Posseggo il compilatore Petspced per il C- 
64 e segnala un errore nella seguente riga di un 
mio programma: 

IO M=t400:DIM D$(M) 

Potreste aiutarmi dato che noii riesco a capire 
bene il libretto di istruzioni in inglese? (Giu- 
seppe Greco - Paestum) 

* Non è possibile dimensionare "dinamica- 
mente” un vettore (numerico o stringa) usan- 
do il Petspeed, Ciò vuol dire che l’argomento 
de! comando DIM deve essere esplicito e non 
riferito ad una variabile, Nel tuo cast» devi 
modificare la riga come segue: 

10M-400: DIM D$(4£X}) 

Non sempre, purtroppo, il valore del Targo- 
mento è noto a priori, come nel caso dii te 
proposto. In alcuni programmi di matemati- 
ca, ad esempio, il valore ddlargomento è 
noto dopo alcune elaborazioni effettuate in 


una parte del programma stesso. In questi casi 
è bene studiare quale può essere il valore 
massimo, nd corso di un’elaborazione, e digi- 
tarlo t ra parentesi, E ‘ ovvio che e indispensa- 
bile fare i conti con la memoria disponibile 
altrimenti, se si esagera, si rischia un messag- 
gio di OUT OF MEMORY ERROR. 

j* 


Registrare l'azimut 

□ Esiste un programma o ur» “qualcosa" per 
tarare l'azimut di un registrature? (Bruno 
G un do! ft - Nizza Monf. ) 

* Il sistema c'è ma, nella sua semplicità, ri- 
chiede purtroppo l'utilizzo di strumenti di mi- 
sura che non tutti possiedono, 

E' intatti sufficiente procurarsi un nastro su 
cui è inciso un (lungo) programma o file di 
dati registrati mediante un registratore per- 
fettamente taralo (altrimenti l'operazione ri- 
sulta del tutto inutile). 

Collegando-i morsetti di un oscilloscopio, e 
azionando il registratore in modo PLAY, è 
possibile, ruotando lentamente la vite di rego- 
lazione della testina, individuare la sua posi- 
zione ottimale in corrispondenza del massimo 
segnale che risulta dallo schermo det- 
Toscilloscopio, 

Se hai un amico che ha l’hobby dell'elettro- 
nica, c che possiede l 'oscilloscopio, ti potrà 
facilmente aiutare. E per gli altri? La System 
editoriale (cioè noi ) metterà tra breve sul 
mercato,,. 


Fuori gli autori! 

In seguito ad alcune m volontarie omissioni, di 
cui ci scusiamo con \ lettori e con gli interessa- 
li. precisiamo che gli autori del volume GUI- 
DA Al COMMODORE 64. (edizioni Me 
Grau-HiU), recensito sul volume 15 di 
C.C.C, sono I. Herborn, R. Talbotl 

L autore della serie di articoli sui Kernal 
(N. 17, 18) è Giovanni Venedì di Gioia Del 
Colle (RA) il cui nome (ed indirizzo) è già 
comparso sul N, 49 della rivista Micro & Per- 
sonal Computer, 
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UDÌ 


Vanta una tecnologia senza 
confronti nella sua categoria. 

Infatti tutte le proprietà 
magnetiche del suo nastro 
sono esaltate al massimo 
grazie alla nuova particella 
magnetica “Ferricrystai" 
che, a differenza di quelle 

tradizionali, è 

assolutamente non porosa La UDÌ, 
quindi, offre un livello d’uscita 
migliorato su tutta la gamma di 
frequenze, specialmente nelle 
medie e basse; una più ampia 
gamma dinamica, ed ottime 
caratteristiche di lownotse. 
Adotta la meccanica P.A. 
(PHASE ACCURACY) per 
garantire la massima 
stabilità di svolgimento del 
nastro e per contenere la 
differenza di fase tra i 
canali stereo entro i 10°. 
Può essere usata 
su qualsiasi tipo 
di registratore. 


n 

E la soluzione ideale 
per chi vuole una cassetta di 
categoria superiore ad un costo contenuto. 

Utilizza un nastro di posizione '‘Chromo" (CrO E ) 
prodotto con la stessa tecnologia dei nastri XL e XL-S Maxell. 
Infatti il nastro della UDII è composto dalle collaudate particelle magnetiche 
'Fine Epitaxial”, ulteriormente perfezionate. Di conseguenza è aumentata tutta la gamma 
dinamica del nastro, il livello d'uscita alle medie ed alte frequenze, mentre il livello 
di rumore di bias ed il rumore di modulazione sono ridotti praticamente 
a zero. 

Il meccanismo di scorrimento P.A. e la perfezione dei gusci della cassetta 
assicurano un regolare svolgimento del nastro, mantenendolo sempre per- 
pendicolare alla testina del registratore {differenza di fase entro 1 10°). 


maxell 


E TUTTA UN'ALTRA MUSICA. 
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□ Che cosa è un vettore? (Massimo Marcato 
Padova} 

* Nella sintassi Basic il vettore è un insieme 
di etemcnii che possono esse re valori numeri- 
ci o stringhe 

Esempio: 

AB=34: XX-V 7ft; G2= 67.K 
eccetera. 

In questo modo risulta però piuttosto diffi- 
cile rintracciare un dato tra cento soprattutto 
se si intende ricorrere a ricerche veloci che 
utilizzano cicli FOR. + ,NEXT 
Per ovviare a questo i neon veniente il Pasic 
consente di utilizzare il comando DIM che. 
compatibilmente con la memoria disponibile 
nel computer, permette di memorizzare un 
numero elevatissimo di elementi e di rintrac- 
ciarli velocemente e facilmente. 

Un esempio di utilizzo del comando DIM 
può essere il seguente: 


KJO DEM A( UHI) 
no print n-scRivr* 

120 PRINT "2-LEGGI" 

130 INPUT D 
14lt IF D= l THEIN 170 
150 1FD-2THEN2IJ0 
m GOTO 1 1(1 

170 INPUT "SCRIVO NUMERO " :X 
IMO INPUT "IN POSIZIONE"; PS 
190 A ( PS )=X : GOTO HO 
200 INPUT "LEGGO POS "; X 
210 PRINTA(X): GOTO 11(1 


La prima riga (100) riserv a spazio nella me- 
moria del computer. Le righe 1 10- lòO rappre- 
sentano un mini-menu che "rifiuia" un qual- 
siasi valore diverso da "I” c da "2". 

Se hai scelto di scrivere un numero (opzio- 
ne "1" rjghe 1 IO e 140) il programma salta alla 
riga 170 ove chiede il numero (X) da memo- 
rizzare nella posizione PS del vettore (riga 
180). 

Nella riga 190 l'istruzione A(FS)=X va cosi 
interpretata: "Nella posizione PSesima del 
vettore A deve essere memorizzato il numero 
X" 

E' possibile, ovviamente, leggere il numero 
presente in una qualsiasi posizione selezio- 
nando l’opzione 2 cd indicandola quandi) ap- 
pare te domanda "LEGGO POS.*" (riga 
200 ) 

Vengono automaticamente emessi messag- 
gi di errore se si tenta di dimensionare più di 
una volta lo stesso vettore, indicando un posi- 
zionamento maggiore di quello dimensionato 
(più dii l(M) nel caso specifico) oppure asse gua- 
do un valore negativo all'argomento racchiu- 
so tra parentesi. 
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oJ proliferare dì riviste di informati- 
ca è piuttosto improbàbile che l'utente 
medio di un personal computer pretenda 
di trovare sulle riviste "su carta" ciò che 
può interessa rio sulle riviste su cassetta. 

Queste ultime, come la nostra 'Com- 
modore Club", si rivolgono agli utenti 
che, volendo programmi complessi o so- 
fisticati (e comunque troppo lunghi da 
digitare senza errori) individuano nel 
supporto magnetico il mezzo ideale per 
entrarne in possesso. Ne consegue che i 
giochi, i programmi e gli argomenti trat- 
tati su Commodore Computer Club non 
potranno mai competere con giochi tipo 
Honda o La voce (ci riferiamo ad alcuni 
notevoli giochi delle cassette di “Com- 
modore Club") che richiederebbero la 
digitazione di diverse migliaia di codici in 
linguaggio macchina. 

Viceversa, anche se decidessimo di 
riempire in tal modo una decina di pagi- 
ne, il modesto risparmio di denaro non 
giustificherebbe la trascrizione del listato 
nè sarebbe, da parte nostra, possibile an- 
che la pubblicazione del come funziona il 


gioco. 

Questa rivista, pertanto, si rivolge ai 
possessori di apparecchi Commodore 
che. affamati di chiarezza e semplicità, 
desiderano sapere come creare program- 
mi oppure il perchè, seguendo una certa 
procedura, si ottengono determinati ri- 
sultati. In modo da sviluppare, nei propri 
programmi, idee in queste pagine affron- 
tate in modo volutamente semplice e 
"povero", 

E se ì giochi pubblicati ti sembrano 
troppo brevi, privi di effetti sonori o al- 
tro. che aspetti a modificarli, personaliz- 
zandoli? 

Non dimenticare che, secondo le mo- 
derne teorie psicologiche, il gioco, lungi 
dal costituire semplice svago, è utilissimo 
per acquistare esperienze altrimenti non 
conseguibili. In conclusione gioca pure 
quanto vuoi, ma con intelligenza: dopo 
un po' di tempo "rompi" il listato che hai 
appena digitato per vedere come è fatto 
dentro... 

Alessandro de Si mone 




mm 


La rivista Commodore, 
consorella di Commodore Computer 
Club, ha promosso nei mesi passati una 
rubrica basata sui contributi provenienti 
dai propri lettori, 

Questa sezione era destinata a tutti quei 
programmi, composti da un’unica riga, 
attinenti a qualsiasi argomento scelto 
dall’utente di un computer Commodore. 

La novità e r immediatezza di questa 
iniziativa, ci ha consentito di riscuotere 
un'enorme successo presso i lettori. 

Le caratteristiche sono le medesime che 
aspirano il lavoro dì tutti i redattori della 
rivista Commodore Computer Club, di 
cui Voi siete affezionati lettori. 

Per questo motivo, nonch 
e S'intercambiabiiit 

a che guida il lavoro di tutte le persone 
che col! aborano con questa gamma di 
riviste, ci ha convìnto a spostare 1 riga 
suite pagine dì Commodore Computer 
Club. 

Speranzosi di incrementare 
ulteriormente i successi U 

precedentemente riportati, Vi invitiamo z 
a inviarci i vostri brevi programmi con £/) 
l'unica limitazione che essi siano k - r 

contenuti in un’unica riga di listato. M 
t’indirizzo a cui dovrete far pervenire le 
vostre ''fatiche" è; 
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Catastrofe, lì sconvolgenti effetti di un 
terremoto vengono ricreati tramite il vo- 
stro Commodore 64, 

(La REDAZIONE) 

J FOR 1=0 TO 255 ! PR INT 
I; :RQ KE 53270, I :NEXT 
i GOTO 1 


Dedalo, Assisterete alla creazione di 
un'interessante labirinto. 

t (La REDAZIONE) 

I PR 1NTCHR* (205 * 5 + RND ( 

1 >>; ; goto 1 

#2 ~ 

Caratteri casuali. Il vostro Commodore 
64 crea caratteri casuali sul video. 

(La REDAZIONE) 

1 T=RNDC1 ) iPOKE CT*100 
0+55296) ,RND< 1 )*16sp 
OKÉ CT* 1000+1024 ) ,RN 
0 C 1 ) *254 + 1 ! GOTO 1 

*3 

Titolatrice. Sul vostro schermo vedrete 
scorrere una fantastica scritta. 

(La REDAZIONE) 

1 FOR S =0 TO 6.4 STEP 
. 3 i PR INT TABC10*COS( 

S ) + 16 ) J ■TITOLATRICE" 
:FOR T=0 TO 1 0 sMERTT 
! NEHTS ! GOTO 1 

i r 4 

logaritmo* Calcolate il logaritmo di un 
numero nella base che più vi aggrada, 

(Roberto Malamisura) 

i INPUT "LOG DI *;fì: IN 
PUT "IN BASE n ; B i R=LO 
G(A)/L0G(B) :PR1NTR:G 
0T0 1 


*5 

Inverti, Inserite una parola e i suoi ca 
ratteri verranno immediatamente in ver 
liti tramite questo semplice listato. 

(Roberto Malamisura) 
I INPUT fìSJM=LENCA$) ;D 
IM BS<M):F0R X=M TO 
1 STEP -1 

<A*,X, DSPRINTB$CX>; 

: NEXT 

* 6 ZZ 

Integrali, Ecco un’ ime restante program* 
ma che consente di calcolare gli integrali 
definiti. 

Dovrete inserire gli estremi di integra- 
zione (AeB). 

(Michele Nannipìeri) 

ì DEF FNFOO=SINCX>:L = 

( 13-5 )/100 5 FOR 1=0 T 
0 99:X=I*L*L/2+AsY=L 
+ FFF(X> : N=N+ 1 :bFXT:P 
R I NTN 


■#7 

-m 

Rotazioni- Al centro del vostro video 
comparirà una piacevole girandola, 

. (Luigi Datianoce) 

1 PRINT" CCLEAR1 11 5 A*-"/ 
~\\ *:FQR B- i TO 1 0 13 
8? FOR C= 1 TO 4 SPRINT 
" t OLEARI M SPC<252>MID 
% (A*,C, 1 ) sNEXTC,B: R 
UN 

: 8 “i 

Verme. Un lungo vermicello percorrerà 
tutto il video del vostro computer 

( La Redazione) 

1 D*= n CLEFT] n : FOR X=1 
TG 200 SPRINT 11 COLE ARI 
"SPRINTO*; 010*0 
n ; :□$=□*+" TRIGHT3 M sN 
EXT 


_ ^9 

Coordinate polari. Un interessante pro- 
blema di analisi matematica: la conver- 
sione da coordinate Cartesiane in coordi- 
nate polari. 

Vi verrà richiesto di inserire questui ti- 
ene in INPUT. 

(Giuseppe Randazzo) 

t INPUT X , Y s AL=ATN<Y/X ' 
) + (ir/2>*<2- SGN( Y) * ( 
1+ SGNCX) ) ) sPRINTSQR 

<Xte+Yt 2 >,fìL+ 100 /rf 

10 

Alfabeto. Questo breve programma vi 
consentirà di visualizzare, in progressio- 
ne, tutte le lettere dell'alfabeto, 

(Toresi Renzo) 

1 FOR L= I TO £00 i FOR U 
= 1BE4 TO £B£3 : POKE U 
f L : NEXTU s FOR I =2022 
TO 1024 STEP y-L : POKE 
1 ,3£ ì NEXTI ,L 

Equazioni. Ecco un facile programma 
per calcolare le equazioni di secondo gra- 
do su! vostro Commodore 64. 

(Giuseppe Mari) 

1 PRINT" CCLEAR 3AX+E+BX 
♦Ct DOWN 3" ! INPUT A,B, 

C s H -E t£/4 -fi *C s K =ABS < 

H ) t . 5 ì J = -B/2 #A i PR I NT 
J+K , J -K ! IF H<Q THEN 
FR I NT “ I “ 

* 12 

Barre. Sincronizzate il vostro televisore 
mediante questo semplice software. 

(La Redazione ) 


I POKE 646 ,N: FOR X=0 T 
0 33 i PRINT" [RVS l ";s 
NEXTt N=N+ 1 + 16* <N= 1 5 ) 
tGOTO 1 
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Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 

sono tutti uguali 


Difatti sembrano tutti uguali finché non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 

Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. 


Questo può accadere con gli abituali 
sistemi di chiusura ma non con i dischetti 
Memorex che usa un procedimento 
esclusivo chiamato 
“Solid-Seam Bonding”. 


Con questo sistema ogni singolo . 
millimetro quadrato dei lembi di tutti i dischi 
Memorex viene sigillato ermeticamente, 
rendendoli piti rigidi e più resistenti. 


È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 !/2”. 

Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex c al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche 
- ricordate: non tutti i 
dischetti sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 




centinaio 
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(l’un computer 


Unix 


Dischi laser 


AlphaMicro 








giochiamo con.... 


Gogo thè Ghost 


■■ 
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GOGO THE GHOSTjà 



rirrecSirSEl 


■— 

uesto nuovo gioco prodotto dalla ca- 
sa di software Firebird e distribuito dalla 
Master! ronic ci introduce nel mondo del- 
l'occulto e del terrore. 

Con il joystick o la tastiera dobbiamo 
infatti aiutare un piccolo fantasma a rag- 
giungere Ja Principessa dei suoi sogni at- 
traverso ISO stanze di un castello infesta» 
to da orribili creature- Sarà letale per 
GOGO, il nostro fantasma, entrare in 
contatto con questi mostri. Deve anche 
stare attento alle varie insidie che caratte- 
rizzano ogni stanza- Cancelli che si apro- 
no e si chiudono, lance che attraversano 
Finterà stanza, palle d'acciaio. Per passa- 


re nelle stanze successive bisogna rag- 
giungere la zona priva di pareti. 

E’ possibile rendersi invulnerabile agli 
oggetti diventando invisibili: fate però at- 
tenzione a non sprecare tutta Fenergia.., 

Ogni stanza è numerata (quella della 
principessa è la numero 149} e parecchie 
hanno un nome. Nel casosi voglia iniziare 
un successivo turno di gioco dall'ultima 
stanza raggili nta* introdurre il suo nome 
alFìnìzio, quindi batti RETURN, 


Idea 

K 

Giocatili ita e suono 

8 

Animazione 

8 

Voto 

8 


1985 

The day after 

F' ar decollare una navicella può rap- 
presentare una operazione molto diffìci- 
le. Nel caso di 1985, ultimo uscito tra i 
giochi della Master! ronic, la cosa è forse 
ancora più complicata. Intendiamoci: la 
navicella è perfettamente manovrabile* 
un fascio di energia permette dì salire 
verso Fallo e spostarsi, mentre il joystick 
da la giusta direzione. Ma il passaggio è 
talmente stretto che..* ci vuole un pò 1 di 
pratica. 



Lo scenario è postatomico, E r il giorno 
dopo; il grande fratello del romanzo di 
Orwell ( 1984} è stato sconfitto, La terra 
deve imparare a sopravvivere da sola. I 
territori che vi dividono dalla salvezza 
{rappresentata da dosi di plasma nuclea- 
re) sono in tutto 12, 

Gli ostacoli sono molti, i pericoli anche. 
La grafica è essenziale ma efficace. Ciò 
comunque {come ben sappiamo) consente 
una beila velocità di gioco. 

Da provare subito. 


Idea 9 

Giocabilità 7 

Animazione 8 

Voto 8 
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IL COMPUTER 


HARD - SOFT - CONSULENZA 


PROCEDURE: Multìutenza Multiposto 

GESTIONALE: integrato Vendite 

Contabilità Paghe 
Word Processing 

SOLUZIONI 

chiavi in mano 


samufficio 


Via Meteo, tì - Milano - Tel. 2715779 







,onfP lo stamfwnl 

iS.'ssa'i? « 


NON AVRAI ALTRA STAMPANTE 


Seikosha ti invita nel meraviglioso mondo dello sue 
stampanti. 

Un mondo fatto di progresso, di elevatissima qualità, 
velocità e sllenziosifà di stampa. 

Seikosha oggi tì propone la più vasta gamma di 
stampanti, nate per esaltare le prestazioni di ogni tipo 
di computer. 

Air altezza di ogni esigenza, anche della tua che usi 
ì Computer Commodore. 

La tua necessità di stampa trova nel modello GP 500 VC. 
con 80 colonne e SO caratteri al secondo, il miglior 
rapporto fra il prezzo, che è particolarmente contenuto, 
e le prestazioni di tutto rispetto. 

Ma se hai delle applicazioni di Word Processing, solo 
GP 550 A con 80 colonne e 50 caratteri al secondo, 


anche Near Letter Quality a 25 caratteri al secondo, si 
impone per le sue prerogative di macchina bivalente; 
stampa comune e produzione di documenti. 

Se le tue necessità tì impongono l'uso del colore, scopri 
GP 700 VC che fa del colore un vero spettacolo, infatti 
con 80 colonne e 50 caratteri a! secondo, consente la 
stampa in alta risoluzione di 7 colori base e un numero 
praticamente illimitato dì sfumature, 

Seikosha e Commodore: una coppia che va d'amore e 
d'accordo. 


SEIKOSHA 

Distribuzione esclusiva: GBC Divisione Kebit 










I 1 principale fascino degli adven- 
tures è quello di creare un mondo 
totalmente nuovo e sconosciuto, 
all'Interno del quale sono dissemi- 
nati tesori e pericoli-., ma chi si 
avventura per la prima volta in un 
luogo, corre il rischio di perdersi, o 
di non saper trovare la strada del 
ritorno. 

Inoltre» in questo tipo di giochi, 
può succedere di dimenticarsi di 
andare a visitare dei luoghi che 
potrebbero, invece, contenere og- 
getti indispensabili a completare 
Vadventure. 

Se poi si aggiunge la necessh 
tà di ricordarsi le particolari fra- 
si che servono a superare fe più 
strane situazioni (per poter ri- 
prendere in seguito il gioco), ec- 
co che risulta indispensabile te- 
nere un promemoria di ciò che 
stiamo facendo. 

In poche parole dobbiamo 
mappare radventure. 






jfcr. 





L e tecniche che si possono uti- 
lizzare per raggiungere ì risultati 
desiderati sono molte, e possono 
anche rispondere a gusti personali 
di grafica e praticità» 

Per prima cosa, cerchiamo di 
capire quali sono gli elementi 
che dobbiamo tener presenti 
per ogni luogo del fad venture: 

descrizione del posto; 

vie di uscita (ed eventuali fra- 
si particolari per poterle usare: 
es. go door ; jump, enter, etc.); 

oggetti presenti; 

frasi particolari da usare (es* 
push button f kilt guard with axe, 
etc,); 

oggetti che bisogna avere o 
indossare per poter effettuare 
una certa azione in quel luogo 
<es» avere la chiave per poter 
aprire la porta, indossare un 


paio di guanti per poter racco- 
gliere un braciere ardente). 

Il sistema più usato per map- 
pare è quello dì disegnare dei 
grandi quadrati, ognuno rappre- 
sentante un luogo, e scrivere, 
alfinterno di esso, tutti gii ele- 
menti che vi si trovano e/o che 
ci servono (fig. 1). 

Per co! legare tra di loro i luo- 
ghi, faremo partire da ogni lato 
dei quadrato delie linee, nelle 
varie direzioni dì uscita possibi- 
li, rispettando ì punti cardinali 
geografici* 

Quando ci recheremo nelle 
zone contìgue, dovremo sempre 
verificare se vi è la possibilità di 
tornare nel luogo da dove si era 
partiti» 

Se questo avviene, la strada 
sarà apertajn entrambe le dire- 


zioni, e potremo disegnare sulla 
linea due frecce, che indicano i 
due versi opposti. 

Se il passaggio è permesso in 
un solo senso, disegneremo so- 
lo la freccia che indica il verso 
in cui è consentito il passaggio. 

Nella maggioranza dei casi, il 
passaggio è transitabile nei due 
sensi, e si può quindi semplifi- 
care il disegno inserendo solo 
le frecce che indicano unidire- 
zionalità! 

Problemi dì mappa possono 
sorgere quando, con su e giù 
(up, down), sì cambia il livello su 
cui si svolge l’azione. Queste di- 
rezioni possono essere indicate 
con una linea curva* 

La descrizione del luogo deve 
essere molto sintetica e, a se- 
conda delle preferenze, può es- 






ADVENTURES/III 


Carta, Penna 
e Bussola 


sere scritta In inglese o tradotta 
in italiano. 

La trascrizione degli oggetti 
presenti può essere integrale o 
limitata a quelli che interessano 
razione: per questi ultimi, è uti- 
le associare una parola o una 
breve fase che ricordi l'uso che 
ne deve essere fatto, o l'altro 
oggetto a cui va abbinato (es. 
OPEN DOOR - RED KEY). 

Un consìglio: disegnare le 
mappe con una matita, per pò- 
ter facilmente correggere gli 
inevitabili errori, frequenti so- 
prattutto in quegli adventures, 
mal strutturati, in cui si ha so- 
vrapposizìone di luoghi, In alcu- 
ni posti, inoltre, le informazioni 
da inserire nel quadrato posso- 
no essere molte, e potreste es- 
sere costretti a ingrandire il 
quadrato stesso* 

Questo metodo, anche se 
permettete un buon colpo d + oc- 
chic della zona che stiamo visi- 
tando, può presentare degli in- 
convenienti nelle situazioni più 
complicate. 

Per ovviarli sì può adottare un 
altro sistema, decisamente più 
pratico: rappresenteremo i vari 


Per orientarsi lungo 
il percorso di 
un adventure spesso è 
utile affidarsi a 
un metodo molto 
tradizionale: 

prendere appunti 



luoghi con piccoli quadrati, uni- 
ti tra loro come visto preceden- 
temente, all'interno dei quali 
scriveremo un numero progres- 
sivo per ogni nuovo luogo visita- 
to. 

Su un altro foglio, potremo ri- 
portare i riferimenti necessari 
per ogni stanza (fig. 2), 

Questo metodo permette di 
avere più spazio per le informa- 
zioni che ci interessano, che ri- 
sulteranno chiare e compiete. 


I labirinti e... 

M a non tutto è così semplice: 
molto spesso, negli adventures 
sono presenti dei labirinti. 

Per labirinti di intendono quei 
luoghi in cui posti diversi hanno 
la stessa identica descrizione: 
non riusciremo quindi a capire 
se t digitando NORD , ci siamo in 
effetti recati in quella direzione 
o se siamo rimasti nei luogo di 
partenza. 

Inoltre, nei labirinti a volte 
non vengono rispettate le dire- 
zioni geografiche, e le mappe ri- 
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salteranno inevitabilmente con- 
torte e alTapparenza inestrica- 
bili. 

Per quanto complessi, esiste 
però un metodo per mapparli 
correttamente: il metodo di Pol- 
licino. 

Se è vero che tutti i luoghi di 
un labirinto hanno la stessa de* 
scrizione, è anche vero che 
l'eventuale presenza in uno di 
essi di un oggetto lo rendereb- 
be, inequivocabilmente diverso 
dagli altri. 

Si tratta quindi di raccogliere 
Il maggior numero possibile di 
oggetti e di entrare nel primo 
luogo del labirinto Qui fascere 
mo, per esempio, la spada. 

Digiteremo quindi NORD, Se 
in questo nuovo luogo, descrit- 
to in modo uguale, al preceden- 
te, troveremo una spada, vuol 
dire che in effetti non ci siamo 
mossi e che NORD è una falsa 
direzione. 

Se non vi è la spada, allora ci 
troveremo in un luogo diverso, 
lasceremo un altro oggetto e 
continueremo cosi sino a com- 
pletare liniera mappa del labi- 
rinto. 

É importante visitare tutti i 
luoghi. In Message from Andro- 
meda t per esempio, in una stan- 
za di un lungo e complicato labi- 


Per qualsiasi quesito, 
richiesta di aiuto , idea o 
collaborazione inerente 
gli adventure (e solo 
questi!), scrivete diretta- 
mente all'autore. Le let- 
tere più interessanti ri- 
ceveranno risposta 

Giuliano Boschi - via 
F. Massi 12 - 00152 Ro- 
ma. 



rinto, vi è un muro su cui è scrit- 
ta una parola, indizio indispen- 
sabile per risolvere ladventure. 

Un esempio di labirinto map- 
palo sr può vedere in fig. 3. 

Nei prossimp numeri mettere- 
mo in pratica quanto imparato, 
risolvendo totalmente un adven- 
ture, in modo da aiutare chi non 
si è mai avvicinato a questo ge- 
nere di giochi o chi non è mai 
riuscito a completarne uno 


Arrow of Death (part 1) 


1 - pai azzo 

■ messaggeri. amu lei' u 
exanvne messenger 
get amufet 
examme amulet 


3 slarga [Jet imr.o 
■'Zardra il mago, 
bacchila domi 
ex amine Za idra 

NON esaminare ia G iden Bansn 


4 cucina 
■quinci' \ 

exdftime ktichen 
pel door 


5 - camera del re 
dello, armai ura 
slemma, cucina) 
get armcur 
ex a min e bed 
get pillo w 
rum coat (3 vohe» 

(pei la 6 GO PASSAGEt 


G stanza seqreM 
j spadai 
gei svvurd 
cut pitlow 
io -r; la spada) 
gei mtrse 
nai inno puf se 
drop puf se 
c/iop pitto w 
Qf't COR l 


Wax Works 
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li UTILE 

COMMODORE 64 


E' Primavera, 
apri una Finestra 

nello Schermo 


I n un programma, o durame la sua ese- 
cuzione, capita spesso di dover conserva- 
re alcune frasi sullo schermo, mentre è 
necessario cancellare tutto il resto parec- 
chie volte Ne risultano complicazioni 
che sarebbe meglio scrivere con un pen- 
narello direttamente sulto schermo del 
TV. Invece di agire sul telev isore, procu- 
randovi magari qualche rimprovero dai 
familiari, vi diremo come ottenere lo sco- 
pi) mediante un programma che funzio- 
na da “ fissa in o" per quelle in di spa usabi- 
li scritte, 

II programma pubblicato in queste pa- 
gine. insieme con alcune routine dimo- 
strative, è quello che fa per voi. Rende 
infatti "indelebili' tutte le frasi, messag- 
gi e scritte che volete in modo più versati- 
le delle funzioni Windows disponibili su 
altri computer. 

Comesi usa 

Dopo avere scritto e registrato (ottima 
precauzione) il programma, fatelo parti- 
le e. se non et sarà segnalazione d errore, 
sarete pronti per la seguente prova; 

* cancellate lo schermo con SHIFT e 
CLR-HOME: 

* premete 3 volte il tasto RETU RN ; 

* premete la barra spaziatrice contem- 
poraneamente col tasto SHIFT; 



Per i tuoi giochi o per 
le applicazioni più 
serie, ecco come 
simulare la funzione 
window sul 
Commodore 64. 


* scrivete la frase: “QUESTA SCRIT- 
TA E* INDELEBILE", badando di pre- 
mere la barra dello spazio insieme con lo 
SHIFT: 

* premete, alla fine della frase, ancora 
la barra dello spazio con lo SHIFT; 

* premete SHIFT e RETURN due 
volte: 

* scrivete 

SYS 49296: SYS 49152: POKF. 720J 
, ..c premete RETURN. 

edrete la frase digitata cambiare di 
colore c restare al suo posto anche se 
provale a cancellare lo schermo [Stufi + 
ChVhome). 

Scrivete ora 

POKE 720,0 

La trasc diventerà nera: le scritte, in- 
fatti, assumono, il colore specificato da 
POKE 721 J,X in cui X è il codice del 
colore. 

Fate un'altra prova: spostatevi co! cur- 
sore in un'altra pane dello schermo e 
digitale un’altra frase che inizi e finisca 
con lo spazio premuto con lo SHIFT. 
Digitate SYS 49296: anche questa scritta 
diventerà una “window", ossia una ' fi- 
nestra airinterno della quale nulla pos- 
sono le normali operazioni di cancel- 
lazione. 

Per creare finestre estese in verticale 
basta allineare verticalmente varie scritte 
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WINDOWS 

1060 DATA 133,192,133,254,160,0 , 


1070 OATA 177,251 , 170,201 ,96,208 

10 REM ** GESTIONE WINDOWS *■* 

1080 OATA 9,165,2,73,128,133 

20 REM ** SUL COMMODORE 64 ** 

1090 DATA 2,76,64,192,165,2 

30 REM ** BY FABIO SQRGATQ ** 

1 100 DATA 41,128,240,18,138,145 

50 i 

1 1 10 DATA 253,166,254,138,24,105 

S0 REM -- SYS 49152 ABILITA 

1120 DATA 212,133,254,173,208,2 

70 REM -- SYS 43858 DISABILITA 

3130 DATA 145,253,134,254,200,132 

80 REM SYS 43296 CREA NUOVE 

1140 DATA 200,208,211,230,2,165 

WINDOWS 

1150 DATA 2,41,7,201,5,208 

90 REM -- POKE 720, X COLORE WIN 

1160 DATA 6,165,2,4! ,0,133 

00 WS 

1170 OATA 2,76,49,234,120,169 

31 i 

1180 DATA 49,141,20,3,169,234 

100 POR K=0 TO 1 73 i READ A:CK=CK+A 

1190 DATA 141,21,3,83,96,0 : 

5 POKE 43 152 +K / A ! NEXT 

1200 DATA 4,5,6,7,196,196 

110 1F CK 023221 THEN PR INT "ERROR 

1210 DATA 197,198,0,200,144,88 

E NEI DAT I . " : END 

1220 DATA 32,4,4,5,6,7 

120 PR I NT " 14 1 NDO WS ATTIVATE !" 

1230 DATA 196,136,197,198,139,0 

130 : 

1240 DATA 120,160,0,152,170,133,2 

1000 DATA 120,168,17,141,20,3 

51 

1010 DATA 169 , 192 ,141,21,3,88 

1250 DATA 133,253,169,4,133,252 : 

1020 DATA 169,0,133,2,98,165 

1260 DATA 169,196,133,254,177,251 

1030 DATA 2,41,7,170,234,189 

1270 DATA 145,253,200,208,249,230 

1040 DATA 128,192,133,251,133,253 

1280 DATA 252,230,254,232,224,4 

1050 DATA 133,138, 132, 133,252, 189 

1290 OATA 208,240,88,96 


! 

UTILITY WJND 

63030 FOR E9 = 1 TO EL ì CK=CK +LENt 


FR*<E9))!NEXT 

10 REM #* GESTIONE WINOOWS ** 

63100 FOR ES =EL + 1 TO 3:FR*<E9)=F 

20 REM ** SU COMMODORE 64 #* 

3*:hEXTsEL-8 

30 REM ** UTILITY BASIC ** 

63110 A3=X ! B9 = Y 5 FR I NT " [ HOME ] "LEFT$( 

1 31 : 

Y9$,B9 ) ; SPC ( A9- 1 ) ; CMR$<F I ) 

63000 Y3$= * 11 : FQR I =1 TO 85: rS 

63120 FOR E9= I TO EL 

$=Y9$ +CHR3K 17) s NEXT 

63130 FOR K9= 1 TO LENI <FR*(E9)) 

63005 F I “ 160 ! ER-0 

63140 FR INT“ [HOME 3 " J LEFT$ ( Y9*,B9 ) i S 

83010 FOR E3=l TO 80 : F9$-F3$+CHR 

PC<A9);M10*<FR*tE9i ,K9, U;CHR 

* < 32 > +CHR$ ( 32 > +CHR* < 32 ) ! NEXT 

$<145> 

83013 REM TAVOLA MEMORIA SCHERMO 

63150 A9=A9+ 1 

63070 : V - Y - 1 * LX=LX- 1 :LY=LY-1 

63151 IF A9 >X+LX THEN GOSUB 632 

63071 IF X+LX >39 OR X<1 OR LX< 

00 

0 THEN ER= 1 : RETURN: REM CON 

63 160 IF B9>Y+LY THEN 63180 

TROLLO X 

63170 NEXT! NEXT 

63080 IF r+LY>£4 OR Y<0 OR LY< 

63 130 S YS 4383 6 : SYS43 1 52 : RETURN 

0 THEN ER- 1 : RETURN: REM CON 

63200 PRINT" IHOMEl "LEFT$( Y9* ,B9 ) ,* SP 

TROLLO Y 

C < A 3 > ; CH R $ ( F I } 

63085 IF EL>3 OR EL<1 THEN ER= 

63210 89=69+1 :A9=X: IF B9<=Y+LY THEN 

1: RETURN: REM CONTROLLO ELEME 

PR INT 'I HOME 3”LEFT*<Y9*,B3);S 

NTI DI FRSKX) 

PC<A9-l)CHR*<Fn 

63036 SVS4335S 

63220 RETURN 
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sempre precedute e seguite dallo spazio 
con Io SHIFT 

k 

Per cancellare le Windows sa rii suffi- 
ciente disabilitarle con SY 54 925 8 e can- 
cellare lo schermo, dopodiché crearne di 
nuove con SYS49296. 

E' bene sottolineare che le Windows, 
cd il loro contenuto, rimangono memo- 
rizzate anche se le disabilitate. Ciò vuol 
dire che è possibile disabilitarle con 
SYS49258 e, per riottenerle, limitarsi 
soltanto a digitare SYS49152. 

Per creare Windows aH'imemo di un 
programma basterà fare precedere c se- 
guire la window da CHRS(lóO) usando, 
per esempio, il seguente formato: 

10 PRINTCHRS( 160); 

MESSAGGIO *;CHR${lòO) 

Se invece siete più esigenti usate 
Putì li tv-scritta interamente in basic pub- 
blicata in queste pagine: serve per creare 
Windows con l'estensione orizzontale e 
verticale e nel punto dello schermo desi- 
derato. Scrive* inoltre, ainmerno della 
window il messaggio desiderato andando 


automaticamente a capo, come se si trat- 
tasse di un pkcoloschermo indipen- 
dente, 

Usare la subroutine è molto -semplice : 
basta definire alcune variabili e richia- 
mare in seguito la subroutine. Se la fine 
stra è troppo piccola in proporzione alla 
frase, il messaggio verrà troncato alla fi- 
ne della window. Le variabili da definire 
sono: 

X= posizione orizzontale di inizio della 
window Ida 2 a 38); 

Y= posizione verticale di inizio della 
window (da 1 a 25): 

LX— estensione orizóntàle della win- 
dow (da l a 39-X): 

LY— estensione verticale della window 
(da la 24-Y); 

EL= numero degli elementi usati del 
vettore FRS( K) (da 1 a 9): 

FRS(k)= vettore in cui è contenuta la 
frase (max 255 caratteri), 

C 

l_j j e fatto ricorso ad un vettore, dato 
che una singola variabile stringa contiene 
al massimo 255 caratteri, che potrebbero 
risultare insufficienti nei casi di window 


di grandi estensioni. Se la vari abile ER 
diventa uguale a 1, vuol dire che non si 
sono rispettate le dimensioni consentite 
per la window. La subroutine viene ri- 
chiamata con GOSUB63G(tfl . 

E anche pubblicato un programmino 
d'esempio per Fuso dcll'utilitv descritta. 

Dato il RG N , il programma chiederà il 
numero delle frasi da scrivere. Si intro- 
durremo, pertanto, le frasi desiderate. h\ 
seguito si dovrà introdurre la coordinata 
X di partenza della window. l’estensione 
orizzontale* la coordinata Y (che consi- 
glio superiore a 10, altrimenti si sovrap- 
porrà agli INPUT per la creazione di 
un'altra finestra), l’estensione verticale e 
il colate- 
ti re ata in tal modo la window (a patto 
che non sia segnalato un errore) basterà 
premere un tasto per aggiungerne utrial- 
tra. Per uscire dal programma sj ricorre 
al solito RUN STOP/RESTGRE men- 
tre , per fare riapparire le finestre create, 
occorre dare 5 Y 549 152. 

Fabio Sorgalo 
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GIOCHI 

CBM-64 C-16 & PLUS 4 


F ACCIAMO 
UN V IDEOGIOCO 


M a come si fa, partendo da u n ' idea , a 
costruire un gioco? 

La cosa è molto più semplice di quello 
che possa sembrare in un primo momen- 
to, e questo articolo vuole appunto spie- 
gare come si fa. Partendo da un’idea ba- 
se, sviluppare un gioco, da soli! Tutto 
quello che segue fa riferimento al t’64. 
Per il C16/FLUS4, prima di iniziare a 1 
leggere, guardate le note del riquadro. 

Il gioco base 

L'idea scelta per il nostro gioco è senv 
plice: siamo in un labirinto pieno di osta- 
coli e vogliamo raggiungere il nostro 
compagno, che sta dalla parte opposta 
dello schermo. Se si va contro un ostaco- 
lo il gioco finisce. La prima idea che può 
venire in mente è quella di " mettere as- 
sieme ' qualche riga basic per generare il 
labirinto, magari casuale, tanto per fare 
3e cose più semplici. Provate a digitare le 
lìnee seguenti esattamente come sono. A 
queste, d’ora in poi. vanno aggiunti i vari 
pezzi (segmenti) di programma in modo 
da Ottenere alla fine il programma 
completo. 

tóO POKE 53280,2: 

POKES328L2: 

PRINT CHR$(158): j 

CHRSU47) 


180 -SC= 1024 
190 CL=55296 
200 N-50 

2211 FOR K=1 TO N 

23(1 R=INT(RND(1)*1000)+1 

2411 POKE SC+R. 160:POKE CL+R, 1 

250 NEXT K 

Prima di spiegare il funzionamento di 
queste linee vediamo come funziona la 
memoria di schermo. 

Il 64 ha 40 colonne e 25 righe per un 
totale di 1000 caratteri in una schermata, 
serviranno quindi 1000 byte di memoria 
per contenere t caratteri. Questi 1000 by- 
te nel 64 sono normalmente posti a parti- 
re dalla locazione 1024 fino alla 2(J23ma. 

Quando vogliamo stampare qualcosa 
in queste locazioni dobbiamo dare un’i- 
struzione del tipo 'POKE loc.codcar', 
dove ‘ loe ' è la locazione di schermo 
(compresa tra 1024 e 2023) e "codcari' è 
ij codice dei carattere da stampare fi co- 
dici di tutti ì caratteri sono riportati sul 
manuale del 64). 

Per alcuni esemplari di Commodore 
64, però, stampando con le POKE viste 
prima il carattere, questo non sì vede 
perchè viene stampato dello stesso colo- 
re dello sfondo. Bisogna quindi colorarlo 
per renderlo visibile Esiste nei 64 un’al- 
tra area di memoria, lunga aneh'essa 
1000 byte (da 552% a 56295), che serve 
appunto per memorizzare it colore di 


Avete in mente la 
sceneggiatura di un 
video-game ma non 
V esperienza necessaria 
per “ trasportarlo” sul 
computer? DaWidea 
base fino al gioco 
completo, 

Commodore 

Computer Club vi 
porta per mano dietro 
le quinte del vostro 
prossimo videogioco. 
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ogni carattere stampato. 

La sintassi e la stessa che abbiamo vi- 
sto per la memoria di schermo, cioè ‘PO* 
KE ]oc,col' dove “col" è il colore „ che 
può variare da 0 a 15. Sul manuale del 64 
è riportata anche la lahella dei colori. E' 
su questi principi che si basano te routine 
di stampa del gioco. 

Ej d ora vediamo di analizzare in detta- 
glio le righe digitate prima: la prima (160) 
cambia i colon de! bordo, dello sfondo, 
dei caratteri (CKR$158) e pulisce lo 
schermo (CHRS147), Poi, alle linee 180- 
190 vengono inizìalizzaie le variabili SC e 
CL rispettivamente airimzio della me- 
moria di schermo c di colore. 

Ouindi (linea 200) viene posto il it ame- 
rò di ostacoli da stampare (=50) e, (linea 
220) viene iniziato un ciclo che va da 1 al 
numero di ostacoli (cioè N), 

La linea 230 genera un numero casuale 
tra le 1000, che verrà poi sommato alle 
variabili SC e CL per stampare in una 
posizione casuale dello schermo uno spa- 
zio in campo inverso colorato dì bianco 
(linea 240). La linea 250, infine, chiude il 
ciclo. 

Abbiamo così realizzato una breve 
routine in basic (provate a dare RUN) 
che genera sullo schermo un labirinto 
con 50 ostacoli casuali. E va bene, ma,., 
se avessimo bisogno di un numero di 
ostacoli diverso da 50? Perchè non ren- 
dere la routine flessibile, in modo da po- 
ter introdurre da tastiera il numero di 
ostacoli da stampare? Potremmo sosti- 
tuire la lìnea 200 con questa: 

210 INPUT "NUMERO 
OSTACOLI'"; N 

Questa linea, al contrario della prece- 
dente, che imponeva N=50, chiede (IN- 
PUT) quanti ostacoli vogliamo stampa- 
re, Alla domanda dovremo introdurre il 
numero seguito dalla pressione del tasto 
RETURN. 

Però ora lo schermo si è 'sporcato’ di 
nuovo con il messaggio dell'l N PUT e do- 
vremo cancellarlo aggiungendo una 
linea; 


210 PRINT CHR$(147) 

Questa, come abbiamo visto prima, 
cancella lo schermo. Provate a dare 
RUN varie volte alla routine così modifi- 
cata e cambiate il numero di ostacoli ogni 
volta, cosi da vederne i diversi effetti, 
Dopo aver fatto questo, la prossima 
cosa che può venire in mente è quella di 
stampare il giocatore cd il bersaglio da 
raggiungere, 

290 POKE SC,81:POKE CL,0 
300 POKE SC +999.87: POKE 
CL“999,5 

La linea 290 stampa nella prima loca- 
zione di schermo una pallina piena (cod- 
car=8l) che sarà il bersaglio, colorata di 
nero (col— II), mentre la linea 300 stampa 
il giocatore, che è una pallina vuota (cod- 
cut— 87) neirultima locazione di scher- 
mo (prima +999) colorata di verde 
(col=5). 

Dando il run al programma ottenuto* 
si nota però che le due palline stanno 
ferme e che la scritta READY compare 
in alto allo schermo, bisogna perciò “in- 
ventare" qualcosa che ci permetta di 
muovere il nostro giocatore in modo da 
poter raggiungere il bersaglio. 

c 

L/ i potrebbe utilizzare un’istruzione del 
tipo; 

GET A5: l F A$=”car“ THEN, . , 
che rileva il tasto premuto. Ma ho prefe- 
rito utilizzare la locazione 197 che rileva 
il codice del tasto premuto, un po' più 
complicata da gestire ma molto più 
efficiente. 

Aggiungete queste linee al 

programma: 

+ 

340 TT$- “000000" 

350 R“24:C“39 

370 P— PEEK{ 197) :IF P=64THEN 370 
ADÌ) IF P=1G THEN C=C-1;REM 
CQD. TASTO “A” (SINISTRA) 
402 IF P=18 THEN C=C+1:REW 
COD. TASTO “D” (DESTRA) 

404 IF P=9 THEN R=R-1:REM COD. 
TASTO “W" (ALTO) 


406 IF P=23 THEN R=RT!iREM 
COD. TASTO “X ' (BASSO) 

480 POKE SC+R*40+C,87:POKE 
CL+R*4Q+C5 
490 GOTO 370 

La linea 340 azzera il tempo utilizzan- 
do la variabile stringa T!$ nel modo de- 
scritto sul manuale del computer. Non 
avevamo stabilito di realizzare un gioco a 
tempo? La linea 350 inizializza le variabi- 
li R(riga) e C(colonna) alla posizione ini- 
ziale del giocatore, cioè riga 24 e colonna 
39, La Linea 370 controlla con un 
PEEK(197) se è stato premuto un tasto. 
In caso negativo (codice64= nessun tasto 
premuto) ritorna su sè stessa e aspetta la 
pressione di un tasto senza proseguire 
nel programma. 

In cast) che si prema un tasto, le linee 
da 400 a 406 ne controllano il codice che. 
nel caso sia uno di quelli specificati, mo- 
difica la colonna c la riga della posizione 
del giocatore. I codici 10, 18, 9, 23 corri- 
spondono rispettivamente ai tasti “A”, 
■D'\ l W*\ «X" per le direzioni sinistra, 
destra, alto e basso. 

La linea 480 stampa il giocatore nella 
nuova posizione secondo la formula: 

Posiz ioti e = SC + riga *40 1 colon n a 
e lo colora di verde secondo Io stesso 
princìpio. La linea 49(0 infine fa ritornare 
il programma sulla linea 370, la quale 
controlla di nuovo se, r .ecc. ecc. 

Correzioni 

Facendo girare il programma digitato, 
si nota però che ha dei difetti. IU primo, 
subito rilevatile, è che quando il giocato- 
re si muove, lascia dietro di sè una 
“scia’’, questo perchè noi stampiamo il 
giocatore nella nuova posizione senza 
prima cancellarlo dalla vecchia, quindi 
dovremo aggiungere una linea del tipo: 

390 POKE SC+R*404-C,32 

che cancella (carcod 32=spazìo vuoto) il 
giocatore prima di spostarlo, ottenendo 
così il nostro scopo, 

Il secondo difetto, meno evidente ma 
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molto più pericoloso* è che il programma 
non controlla i Limiti di spostamento!!! 

Se voi provate a muovervi continua- 
mente a destra o a sinistra fino ad uscire 
dallo schermo da un lato* noterete che il 
giocatore non si ferma sul bordo dello 
schermo come sarebbe logico* ma conti- 
nua ad avanzare fino a che non rilasciate 
il fasto- 
se questo per molti potrebbe non esse- 
re un difetto, lo diventa quando invece di 
"andare fuori" dallo schermo da destra o 
da sinistra lo si fa dall'alto o dal basso 
(non fatelo!}. 

Nel modo descritto, infatti, si invado- 
no zone di memoria "pericolose" (il pro- 
gramma basic da una parte e i puntatori 
di sistema dall'altra) rischiando di "per- 
dere” il programma in memoria oppure* 
peggio, di ottenere il blocco (crash) del 
sistema con la conseguenza di dover spe- 
gnere la macchina e ricominciare da capo 
a digitare. 

In effetti il giocatore potrebbe stare 
attento a non oltrepassare i bordi dello 
schermo, ma per sicurezza è meglio inse- 
rire nel programma opportune linee di 
controllo che. anche se rallentano Leg- 
germente l'esecuzione, evitano spiace- 
voli conseguenze. Le linee in questione 
sono: 

420 IF C<0 THEN C=0 
430 IF R<0 THEN R=0 
440 IF R>24 THEN R=24 
450 IF 039 THEN 039 

a linea 420 controlla se la colonna di 
spostamento è inferiore a 0 (infatti se 
siete in colonna 0 e spostate a sinistra, la 
colonna diventa -1, andando così fuori 
dallo schermo) e* in tal caso, la pone 
uguale a 0, non permettendo così di spo- 
starci oltre il limite inferiore. 

Analogo discorso va fatto per la riga 
(linea 434)}* Le linee 440 e 450 fanno la 
stessa cosa delle due precedenti, solo che 
invece di controllare t limiti minimi con- 
trollano quelli massimi. E' importante 
sottolineare che questi controlli vanno 
fatti prima di spostare il giocatore perchè 
sarebbe illogico spostarlo fuori dallo 


schermo (con tutte le conseguenze viste 
prima) e poi controllare se lo si è spostato 
fuori. 

Analogo discorso va fatto per la riga 
(linea 430)* Le linee 440 e 450 fanno la 
stessa cosa delle due precedenti, solo che 
invece di controllare i limiti minimi con- 
trollano quelli massimi. E' importante 
sottolineare che questi controlli vanno 
fatti prima dì spostare il giocatore perchè 
sarebbe illogico spostarlo fuori dallo 
schermo (con tutte le conseguenze viste 
prima) c poi controllare se lo si è spostato 
fuori. 

Facendo girare il programma cosi mo- 
dificato si ottiene una discreta versione 
de t gioco che però (non finiscono mai) ha 
un altro difetto. 

Infatti si noterà che nel muoversi, se si 
urta un ostacolo o un bersaglio... non 
succede niente* ma semplicemente "gli 
passiamo sopra" cancellandolo, A que- 
sto punto si potrebbe pensare: "Tutta 
quésta fatica per un gioco senza difficol- 
tà?" Niente paura, basta infatti aggiun- 
gere una linea che controlli se il giocatore 
urta un carattere-ostacolo, cioè una linea 
come questa per esempio: 

470 IF PEEK(SC+R*40+C) < > 

32 THEN PRINT CHRS(147);T1$: END 

■ 

La linea 470 controlla con un PEEK 
mediante la formula vista prima la posi- 
zione che dovrà assumere il giocatore 
prima di essere stampato, c se questa è 
uno spazio vuoto (carcod“32) continua 
nell'elaborazione, altrimenti stampa il 
tempo di gioco e termina l'esecuzione. 

Questa linea potrebbe anche andare 
bene. Se non fosse che il programma sì 
ferma allo stesso modo sia che toccate un 
ostacolo sia che toccate il bersaglio, dato 
che non abbiamo scritto nessun com- 
mento, ma solo il tempo di gioco (con- 
trollare per credere). 

Ora, la persona che sta giocando sa (o 
almeno dovrebbe sapere se non era trop- 
po distratta) se è andata contro ad un 
ostacolo o se ha raggiunto il bersaglio, 
ma visto che abbiamo a disposizione un 
calcolatore (e pure fantastico come il 


C64)* perchè non facciamo fare tutto a 
lui? 

Cambiamo ta linea 470 in: 

470 EF PEEK(SC+R*40+C) < > 

32 THEN P=PEEK(SC+R*40+C): 
GOTO 620 

e aggiungiamo le seguenti linee: 

620 TM$==mPRINTCHR$(147) 

640 IF P=81 THEN PRINT "HAI 
RAGGIUNTO IL BERSAGLIO” 
650 1FP= 160 THEN PRINT 
"HAI URTATO 
UN OSTACOLO " 

660 PRINT" TEMPO :”TMS 
670 END 


1*4 a linea 470 così modificata controlla 
sempre cosa c'è nella posizione che do- 
vrà assumere il giocatore, E nel caso non 
sia uno spazio, memorizza il contenuto 
della variabile P e passa alla riga 620, 
Questa linea memorizza il tempo di gio- 
co nella variabile TM$, questo perchè 
Tl$ viene i nc reme m tata automaticamen- 
te da computer e se prima di stampare il 
tempo dobbiamo compiere operazioni 
particolarmente “lunghe" il risultato del 
gioco viene falsato,’ Se invece memoriz- 
ziamo subito il tempo in una variabile a 
nostra scelta (nellesempio riportato: 
TMS) che il computer non "tocca”, non 
abbiamo più problemi. 

La Linea 640 controlla se P (P era il 
codice della "cosa” contro cui abbiamo 
urtato) è uguale ad 81* che, guarda caso, 
è proprio il codice del bersaglio: in que- 
sto caso stampa un opportuno 
messaggio. 

In lìnea 650 invece si controlla se que- 
sto codice era quello di un ostacolo (qua- 
dratino bianco, cioè spazio in campo in- 
verso codcar— 160) e. in caso affermati- 
vo, stampa un messaggio diverso (HAI 
URTATO UN OSTACOLO), 

La linea 660 stampa il tempo di gioco e 
infine b linea 670 termina l'esecuzione 
del programma. 
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Più diffìcile ancora 

I! programma, cosi com’è, potrebbe 
andare bene ma scio per un numero 
abbastanza basso dt ostacoli; se invece 
vogliamo complicare la partita inserendo 
un numero alto (maggiore, per esempio, 
di 250) cominciano a sorgere dei proble- 
mi. Può infatti capitare che il bersaglio 
sia circondato da ostacoli oppure che sia- 
mo in un vicolo cieco che, anche con 
tutta la buona volontà, non si riesce a 
superare. 

Si potrebbero quindi inserire nel pro- 
gramma delle linee che premendo un ta- 
sto, cancellano tutti gli ostacoli intorno 
liberandoci la strada. 

Le seguenti linee possono servire allo 
scopo: 

380 IF P=1 THEN GOSUB 520 
520 S— SC+R*40+C 
541) IF S<19R4 THEN POKE 5+40,32 
55(1 IF S>1064 THEN PQKES40.32 


560 IFS< 2023 THEN POKES+1,32 
570 l F S> 1025 TH EN POKE 5- 1 .32 
580 FOR K=1 TO 1000:NEXT 
590 

RETURN 

La linea 380 (inserita quindi nel blocco 
di programma che controlla la pressione 
dei tasti) controlla se viene premuto il 
tasto RETURN (PEEK 197=1) e, in ca- 
so affermativo, passa ri controllo al sotto- 
programma che inizia dalla linea 520, 

Questa linea memorizza la posizione 
attuale del giocatore nella variabile S, le 
linee seguenti eseguono dei controlli di 
limite (a cosa servono Pabbiamo visto in 
precedenza) e quindi se tutto va bene 
cancellano gli ostacoli. Per cancellare gli 
ostacoli tutti intorno si dovrà cancellare 
In posizione attuale del giocatore (S) + l 
(POKE S+1.32), quella precèdente 
(POKE $- 1 ,32). quella sopra (rieoradate 
che lo schermo ha 40 colonne) che sarà 
P-40 (POKE P-40,32) e quella sotto (PO- 


KE P +40,32). 

Ovviamente nè P-l, nè P+l. P-4U op- 
pure P+40 dovranno dare un risultato 
minore di 1024 o maggiore di 2023 ed 
ecco il perchè dei controlli di limite (IF 
S> eccetera), 

C ' „ 

on questo sistema vengono cancella- 
ti solo gli ostacoli che stanno "dentro"' lo 
schermo, ignorando le locazioni adiacen- 
ti al giocatore ma ** fuori" dello schermo 
visibile. 

La linea 580 crea un ciclo di ritardo di 
circa un secondo, perchè non sarebbe 
giusto usufruire di questa utile funzione 
senza avere qualche handicap (in questo 
caso la perdita di tempo). 

La linea 5W infine ritorna alla linea 
subito dopo quella che ha chiamato il 
sottoprogramma (la linea dopo il GQ- 
SUB 520). 

Per i più pigri... abbiamo finito !!! (fi- 
nalmente), H gioco infatti funziona così 
com e c non ha più difetti. Peri più intra- 
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prendenti si può anche sofisticare mag- 
giormente i! gioco aggi ungendogli musi- 
chette, effetti speciali. 

Ed è infatti quello che faremo nella 
seconda parte di questo (lunghissimo) 
articolo. In figura è pubblicato il dia- 
gramma a blocchi semplificato del pro- 
gramma, che illustra le principali opera- 
zioni che il programma esegue. 

Piccoli giochi crescono: i suoni 

I mini migloramenti che vengono in 
mente riguardano sicuramente gli effeti 
sonori. 

Costruiamo una routine basic che ge- 
neri il rumore di una esplosione quando 
si va contro ad un ostacolo. 

Per prima cosa, dobbiamo cancellare 
dal programma precedente le linee 620, 
640, 650, 660, 670, semplicemente scri- 
vendo il solo numero di linee è premendo 
RETURN, Dopo aver cancellato queste 
linee, dobbiamo aggiungere le seguenti: 
620, 640, 660, 680, 690, 710. 730, 740, 
750, 760, 770, 800, 810, 815, 820. 

I a linea 620, vedere nel listato, memo- 
rizza il tempo; la linea 640 controlla se 
l’oggetto che abbiamo colpito è il bersa- 
glio (carcod=8l) e in caso affermativo 
passa il controllo alla linea 800, dove vie- 
ne stampato un messaggio di vittoria e 
terminato il gioco. 

In caso che l'oggetto colpito non sia il 
bersaglio, il programma continua con la 
linea 660, dove vengono azzerati tutti S 
registri musicali, che vanno appunto dal- 
la locazione 54272 alla 542%. E' oppor- 
tuno inserire una linea del genere in ogni 
programma che debba suonare qualcosa, 
in modo da non lasciare t registri "spor- 
chi " ed eventualmente causare anomalie 
nel funzionamento del programma. 

elle linee 680/690 vengono settati al- 
cuni valori: la locazione 54298 controlla 
il volume del suono che può variare da 0 
( minimo) a 15 (massimo), le due locazio- 
ni 54272/54273 settario il valore della no- 
ta da suonare in questo modo: 54272 
contiene il valore basso della nota men- 
tre 54273 il valore alto. 


Ma cosa sono questi valori: “alto" e 
'"basso"? Un suono può essere “indica* 
to'" da una frequenza, che indica appun- 
to l'altezza del suono. L'unità di misura 
per la frequenza c ì'Hertz (Hz) e può 
spaziare (nelle frequenze udibili) da cir- 
ca 16 a 16000 Hz, U 64 vuole le note 
appunto in Hz, ma come sappiamo in 
una locazione di memoria non si può 
inserire un valore superiore a 255, quindi 
si dovrà trovare un’altro modo per ovvia- 
re airincon veniente. 

Il modo più semplice è quello di divi- 
dere la frequenza della nota per 256, Un- 
terò risultato ottenuto sarà appunto il 
cosiddetto valore byte “alto" cfà FOKare 
nella locazione 54273, mentre il resto 
delia divisione sarà il valore basso da 
inserire nella locazione 54272. 

Per fare un esempio: ammettiamo che 
la nota che dobbiamo suonare abbia la 
frequenza di 4097 Hz c dividiamo nppun- 
to 4097 per 256. Il risultato della divisio- 
ne è 16 ed il resto è 1. 16 è il valore allo 
mentre 1 diventa il valore basso della 
nota. Per far suonare questa nota dovre- 
mo quindi inserire nel programma uan 
riga del tipo: 

POKE54272.1:POKE54273,16. 

Chiudendo questa parentesi c rimari 
dando al manuale del 64 per ulteriori 
dettagli continuiamo la descrizione della 
routine. 

La locazione 54277 controlla il ciclo di 
attack/decay della nota, mentre la 54278 
ne controlla il sunstain/release, Nono- 
stante Commodore Computer Club ab- 
bia già trattato in precedenza tali argo- 
menti. diamo comunque una semplicissi- 
ma descrizione di che cosa fanno. 

Le locazioni musicali 

Questi parametri controllano in quan- 
to tempo il volume di una nota passa dal 
minimo al massimo e in quanto tempo il 
volume passa a fine nota dal massimo al 
minimo. Per fare un esempio, il suono di 
un volume cessa non appena si smette di 
"sfregare” la corda, mentre quello di un 
pianoforte anche se si è rilasciato il tasto 
"sfumando” a poco a poco. Sono appun- 


to questi gli effetti che vengono control- 
lati dai quattro parametri visti prima. 

La Locazione 54276 controlla la forma 
d'onda della nota, cioè il tipo di suono, 
che può variare da dolce (flauto) a squil- 
lante (clavicembalo). In questo caso pe- 
rò, il valore 129 POKato appunto in 
54276 significa che abbiamo scelto come 
tipo di suono il rumore bianco, cioè un 
miscuglio di suoni causali che producono 
un effetto simile a quello di un "espio* 
sione. 

Le linee "musicali'" sono finite, infatti 
il programma continua con la 7 10, che 
contiene un ciclo FOR-NEXT per far 
variare ripetutamente il colore dello 
schermo, costruendo così un discreto ef- 
fetto ottico. 

Le linee da 730 a 750 stampano gli 
opportuni messaggi di fine gioco e la li- 
nea 760 azzera, come visto prima, tutti i 
registri musicali, 

Ma,,,cos'è quel misterioso u PO- 
KE 198, fi" nella linea 7707 
Semplice: quando voi premete dei tasti 
durante lo svolgimento di un qualsiasi 
programma (in questo caso possono es- 
sere i tasti di movimento) questi vengono 
memorizzati in un "buffer di tastiera" 
cioè un pezzo dì memoria dedicato alla 
tastiera, IL buffer viene “scaricato'' (sul 
video) alla fine del programma, quando 
cioè viene restituito il controllo all'inter- 
prete basic e quindi tutti i caratteri pre- 
semi in esso vengono stampati, sporcan- 
do la schermata finale. La locazione 198 
contiene il numero di ciirattcri contenuti 
nel buffer e quindi se noi la azzeriamo 
prima di terminare il programma, il buf- 
fer non verrà scaricato lasciando lo 
schermo inalterato. 

Musica, musica! 

■ 

Al nostro programma abbiamo, fino- 
ra, aggiunto un semplice effetto sonoro, 
che contribuisce a vivacizzare il gioco. 
Perchè non proviamo ora ad aggiunger- 
ne un altro, questa volta in caso di vitto- 
ria. cioè di raggiungimento del bersa- 
glio? Magari il secondo effetto invece di 
essere una semplice nota potrebbe essere 
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100 GOSUB 1070 
800 RESTORE 

810 POR K "54272 TO 54296: POKE K,0:NEXT 

840 POKE 54296 , 10 SPQKE 54276 ,65 : FOKE 54277,190 

345 POKE 54275, 15 sPOKE 54374,15 

880 READ H , L , □ 5 1F H=-l THEN FQR K=54272 TO 54296tF0KE 
K , 0 : NE XT i GOTO 330 

830 POKE 54273, H : POKE 54272, L*FOR X-D-50 TO D-205POKE 

54278 , 136 5 NEXT 

300 POR T=I TO DSNEXT 

910 POKE 54273,0= POKE 54272, 0: POKE 54376,0: GOTO 340 
330 REM ** FINE ** 

350 PRINT CHRSC147) 

360 PRINT" BRAVISSIMO! HAI RAGGIUNTO IL BERSAGLIO!" 

970 PRINT" TEMPO:";TM$ 

980 PRINT" CIAO": POKE 198,0: END 

1070 S=0iFOR K = 1 TO 39 : READ A:S=S+A:NEXT 

1030 READ A : I F S< >A THEN PRINT" ERRORE NE I DATI 

MUSICALI ! " : END 

1100 RETURN 

1 160 

DATA34 ,75 ,250 ,43 ,53 ,250 ,5 1 ,97,375,43,52,125,51,37,250,57,172, 

250,51,37 

1170 ■- 

DATA500 ,0,0,1 25 , 43 ,52 ,250 ,51 ,97 ,250 , 57 , 1 72 , 1 000 , 5 1 , 87 , 1 000 , - 1 
1180 DATA 6214 


una (altrettanto semplice) musichetta. 

Semplice» perchè ima musica non è 
altro che una successione di singole note» 
e quindi basterà trovare la musica suo- 
narle tutte» una alla volta, per ottenere la 
musica completa. Per fare questi si po- 
trebbe utilizzare il programma di prima 
lievemente modificato. Si potrebbe cioè 
aggiungere una linea del tipo: 
POKE54272, ( » . ;POKE54273». » . 
per ogni nota da suonare» ma nel caso di 
motivi Lunghi il programma rischierebbe 
di diventare lungo come un trattato di 
medicina e voi di diventare vecchi póma 
di averlo finito. 

La soluzione più semplice è quella di 
mettere le note in righe DATA, leggen- 
done e suonandone una alla volta. Le 
linee seguenti aggiungono al programma 
una semplice musichetta m caso di 

i 

vittoria. 

Prima di digitarle però cancellate le 

linee $00, 810, 815» 920, 

li a riga 100» che abbiamo aggiunto 
all'inizio del programma (e quindi sarà la 


póma che esegue), esegue un GO- 
SUB 1070 in modo da andare a leggere i 
dati musicali per controllare se sono sta ti 
digitati correttamente. Le linee da 1070 
a 1100 servono appunto allo scopo: esse 
Leggono i 39 dati e mettono in S la somma 
di tutti questi dati (linea ltì70) r 

La I09O legge il 40mo dato» che è 
appunto la somma dei dati se sono stati 
inseriti correttamente, A questo punto la 
stessa linea confronta appunto la somma 
esatta con il risultato ottenuto prima (S) 
se sono uguali significa che abbiamo in- 
serito correttamente i dati» mentre se il 
confrónto non ha successo abbiamo sba- 
gliato qualcosa e il programma si ferma, 
permettendoci cosi di confrontare le ri- 
ghe che abbiamo scritto con quelle sulla 
rivista. 

Se il confronto ha successo, la linea 
1100 fa riprendere il control loal pro- 
gramm principale. 

Nel caso che raggiungiamo il bersaglio 
il comando del programma passerà tra- 
mite la linea 640 alla linea 800, che 
esegue RES l’ORE (che non ha niente a 
che vedere con l'omonimo tasto) che az- 


zera il puntatore ai dati» cioè, quando noi 
leggiamo un dato con una READ il pun- 
tatore dei dati il puntatore dei dati si 
incrementa» permettendoci con un'altra 
READ di leggere il prossimo dato e così 
via. 

Se noi leggiamo tutti i dati il puntatore 
si incrementa fino a puntare oltre la fine 
dei dati, e se noi eseguiamo un'altra 
READ tentiamo di leggere un dato che 
in realtà non esiste generando un mes- 
saggio di errore (OUT GF DATA), Il 
comando (e ripeto: il comando e non il 
tasto) RESTORE azzera questo punta- 
tore in modo che ogni volta che viene 
chiamata la routine inizia a leggere dal 
primo dato inserito. 

ti e linee da 810 a 845» come visto in 
precedenza» azzerano i registri musicali e 
gettano alcuni valori iniziali per la 
musica. 

La linea 80O legge i tre dati per la 
musica» Ma perchè tre, visto che come 
abbiamo detto, per suonare una nota so- 
no necessari solo due valori? Perchè ser- 
vono due valori per la frequenza» ma è 
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anche necessario un terzo valore che in- 
dica la durata della nota La stessa linea 
controlla poi che il dato non sia un -1. 

Il valore -1 infatti, che non potrà mai 
essere utilizzato per generare una nota 
(ìc frequenze non possono essere negati- 
ve) dice al programma che la musica è 
finita. In tal caso il programma continua 
azzerando i registri musicali e saitanto 
alla linea 93tì, dove vengono stampati i 
soliti messaggi di fine programma, azze- 
rato il buffer di tastiera e terminata 
l'esecuzione. 

Nel caso invece che i! valore letto non 
sia -L il programma continua leggendo e 
POKando nei registri 54272/54273 i valo- 
ri della nota. La linea 900 genera un 
ciclo di ritardo pari appunto alla durata 
della nota (il ferzo dato letto). 

Una particolarità del SLD (il generato- 
re sonoro del b4) c che prima di suonare 
una nuova nota bisogna azzerare sia i due 
registri del valore alto/basso che il regi- 
stro della forma d’onda. 


E per questo che è necessaria La Linea 
910, oltre che per far ritornare il pro- 
gramma alla linea 840. dove rimette la 
forma d'onda giusta, legge, suona e ecci- 
terà, e cosi via fino alla fine della musica. 

Siamo così riusciti ad aggiungere una 
musichetta al programma, che ora è di 
ventalo piuttosto coni pie so. Perchè non 
miglioriamo l'effetto della musica ag- 
giungendo un paio di effetti visivi? 

Gli effetti speciali 

Il primo è molto semplice, si tratta di 
aggiungere Lina linea che cambia il colore 
dello sfondo e del bordo a seconda deha 
nota letta: 

870 POKE 53280X:POKE 532HM 

Questa linea, come si può notare ri- 
guardando il programma di prima, modi- 
fica i colori dello schermo (53280 = bor- 
do, 53281 — sfondo) a seconda della nota 


letta, (infatti utilizza gli stessi valori H e 
L) permettendoci di “vivacizzare' la 
musica . 

Alla fine del ciclo però i colori risulte- 
ranno alterati, bisogna perciò rimetterlo 
a posto riPOKando t giusti valori nelle 
locazioni 53280/5328 1 : 

940 PGKE 53280,2: POKE 53281 ,2 
che rimette lo schermo tutto in rosso. 

Ma siccome io sono un tipo che non si 
accontenta mai, c ho deciso di aggiunge- 
re un ulteriore effetto ottico nel pro- 
gramma, questa volta però in LM (Lin- 
guaggio Macchina), in modo da accon- 
tentare anche coloro che vogliano impa- 
rare questo linguaggio, difficile solo in 
apparenza. 

L*M . per giochi 

Cancelliamo la linea 1100 e aggiun- 
giamo le linee II 21), 1131) e 1200 del 

listato in testa alla pagina. 



52025 MONTEVARCHI (Arezzo) 

Via Marconi, 9/a 
Tel. (055) 98-02.42 -98.25.13 


ESTRATTO DAL N$. CATALOGO GENERALE COMMODORE 64 


GESTIONALI 


CGD012 Contabilita ordinaria 

230.000 

CGD002 Magazzino (collegato) 

150.000 

GGDQG3 Fatturazione (collegato) 

150.000 

CGDQ18 Gestione C/C multipli 

40.000 

CGD011 Arrédograph 

195.000 

CGD015 Gestione Biblioteca 

80,000 

CGD007 Gestione indirizzi 

60.000 

CUN063 Easy script nastro 

50.000 

UTILITY 


CU £3022 Pascal OXFORD 

150.000 


da 35,000 

CUDQ29 Isam 

75.000 

CUDQ82 Simon's Compilar 

70,000 

CUD081 Compii, BLITZ 

60.000 

CU DO 3 8 Unguard 

120.000 

CUD039 Clone 

80000 

C UDÌ 03 Bisector 

80,000 

CUD104 Piraie Disk 

70-000 

CUD053 Copy 190 

70.000 

CUD040 Turbo Disk 

60.000 


HARDWARE 


CHV008 Programmatore ÈRROM ’64 250 000 
GW0Q4 Monitor 14" colore con 

audio orientabile CAE3EL 510.000 
GHV006 Interfaccia CENTRONICS 95.000 
GVD006 Coprico m pu te r pia stipa 1 9,000 


CHVQ21 Backup cassetta 35 000 

GVDGQ1 Dischi 3M/DATALIFE 3. 950 

GVWQ06 Nastri 801 /802 15.000 

GVDG02 Kit pulizia disco (2) 20 000 

GVD012 Ricambi per Kit (10) 30 000 

GVDD03 Gontenilore io dischi 6 000 

GVDQ04 Contenitore 40 dischi 29.000 

MANUALI 

CMB050 Guida ai CBM64 28. 000 

CMBQ51 Sistema operativo GBM64 

+ SUPERMON 38.000 

GMB054 Periferiche COMMODORE 25 000 

GMB055 I segreti del 1541 28.000 

CMB056 Corso di grafica CBM64" 24. 000 


CMB057 Corso di Assembler CE3M64*’ 38. 000 
“ Completi di programmi nastro 


MANUALI PROGRAMMI 


CMB006 Wedge 4.0 

10.000 

CMB01 4 Vizawrite 

15.000 

CMB01 7 Simon 

20.000 

CMBQ18 Master 

25000 

CMB019 Extended basic 

8.000 

CMB030 Pet speed 

15.000 

CMBQ33 Easy script 

20,000 

CMB034 Tool 

1 5,000 

CM8035 Superbase 

25-000 

CMB036 Clone 

10.000 


CMB037 Unguard 10.000 

CMB033 Pascal Oxford (inglese) 20.000 
CMB039 Km mm -Pascal 10.000 

GMBG40 Sam reciter 15.000 

CMB041 Cale result 15 000 

CMB042 Multiplao HELP 12.000 

CMB046 Easy file 25 000 

CMB060 Super espander 15 000 

Offerte speciali 

Espansione 1 6K Vie 20 (1) 90.000 

Espansione 32K Vie 20 (1) 120 000 

Grafica + 3K VlC 20 (2) 54,000 

(1) Con manuale Guida VlC 20 

(2) Con manuale Perii. VlC 20 

BIBLIOTECA 04 65,000 


Comprende; Guida al CBM 64, Sistema Ope- 
rativo CBM64 r I segreti del 1541, Schema 
elettrico disco. SUPERMQN, Schema elellnco 
CBM64. 


Ccgnome 

Nome , 

indirizzo 


CONCMZIONi DI VENDITA - La mire* viene resa FRANCO Monte-varchi Per in contrassegno cabeel*rs L , £ 5(M>S«r rlmlw- 

so apes* psbM.l> c vari?. Con dogamo nlO anticipilo nor. serafino addebitalo. -I pagamento ftftUelpatO ft uò tì ssòi u erfe-ltueio anche 
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1110 3 = 0 t FOR K = 0 TO 13 : READ A : 3=S + fì* FOKE 833+K , A : NEXT 
1120 READ A t 1F AOS THEN PRINT“ ERRORE f^E I DATI LM" i END 
t 130 RETURN 
1200 

DATA 169,0, 170, IBS, 238, 32,205, £3£ , £03, 250,200, £03, 247*96. 


ucste linee, oltre a leggere i dati 
della routine LM ed a controllarne l’esat- 
tazza analogamente a quanto succedeva 
prima per i dati musicali, esegue anche 
un'altra operazione: memorizza (PQ- 
KE) questi dati dalla locazione dì memo- 
ria 833 in poi (vedasi POKE 833+K,A in 
riga 110). 

Già. perchè se i dati musicali possono 
essere letti e “suonati” uno alla volta, un 
programma LM, per quanto breve che 
sia, deve essere posto da qualche parte 
nella memoria per essere eseguito, 

E' come nei basic, voi non potete ad 
esempio caricare da cassetta o da disco 
un programma una linea alla volta ed 
eseguirla, ma dovete avere in memoria 
tutto il listato completo. Nei nostro caso, 
“qualche parte di memoria” si trova daì- 
Tindirizzo 826 alPindirizzo 1023. Questo 
pezzo dì memoria serve normalmente 
per operazioni col registratore, (LQAD* 
SA VE, ecc.) ma siccome il gioco non le 
utilizza, per noi è un “buco” lìbero, dove 
possiamo metterci quello che vogliamo. 

Se provate ora a dare RUN al prò* 
gramma così modificato noterete die.., 
non è cambiato niente. Infatti, per ese- 
guire una routine in LM non è solo ne- 
cessario metterla da qualche parte, ma 
bisogna anche dire al computer che c'è e 
dove inizia, altrimenti per lui i dati di una 
routine in LM, di sprite, di musica, ecc 
sarebbero numeri senza senso, che 
ignorerebbe. 

Entrare in L,M 

L'istruzione che dice al computer do- 
ve sì trova una determinata routine in 
LM e fa passare il controllo a questa è 
SYS (indirizzo), che fa “partire” appun- 
to la routine in LM che è allocata dalla 
locazione “indirizzo” (nel nostro caso, 
833), 


Cambiamo quindi la lìnea 930 in: 

930 SYS(833) 

che ci permette di raggiungere lo scopo 
prefissato. Ora, se avete fatto tutto esat- 
tamente, fate qualche partita, 

Quando raggiunge il bersaglio, dopo 
la musica noterete uno strano effetto sul 
bordo dello schermo, che si riempirà co- 
me di “righe colorate' 1 per qualche se- 
condo e poi tornerà ai colori originali. 

A quanto abbiamo capito finora que- 
sta routine ha a che fare con il colore del 
bordo, ma vediamo di analizzarla me- 
glio, ma non partendo dai DATA, ma 
dall'equivalente disassemblato della rou- 
tine (il disasemblatodi LM è t'equivalen- 
te del listato per i programmi basic). 

Attenzione: Le linee del listato al pie- 
de della pagina non sono da digitare in 
quanto vengono poste in memoria auto- 
maticamente dai dati della linea 1200 e 
dal ciclo delle linee 1110-1130. 

T 

JL n locazione (d'ora in poi la chiamere- 
mo linea) 833 c’è l'istruzione LDA^OO, 
Questa istruzione per il “cervello” al sili- 
cio 6510 significa: “carica nell’accumula- 
tore il valore 0” (IoaD Accumulator). 

* 

L’accumulatore, cosi come i registri X e 
Y sono delle memorie che usa il 6510 per 
“ri cord a re” qualcosa. In basic le potrem- 
mo chiamare variabili. Questi possono 
contenere solo valori numerici, e questi 
non possono essere minori di 0 o maggio 
ri di 255, 


Le linee 835 e 836 trasferiscono il 
valore che c’è in A nei registri X e Y 
(TAX— Transfer A in X, TÀY=Tran- 
sfer A in Y). Abbiamo cosi ottenuto l'az- 
zeramento dei tre registri del micropro- 
cessore 6510: “A ”, “X" e “Y’\ La linea 
837 "prende" il contenuto della locazio- 
ne specificata (in questo caso 53280), lo 
incrementa di + 1 e lo “risbatte 1 ’ nella 
stessa locazione (INC — Increment 
memorar). 

La lìnea 840 incrementa il «registro 
X di uan unità per usarlo come contatore 
(ricordaiamo che allinìzio X era a 0). 

La lìnea 841 controlla (in questo ca- 
so) che il registro X non sia arrivato a 0, 
In caso sia diverso da 0 ritorna a 837, 
dove continua a cambiare il colore fino al 
nuovo azzeramento di X. 

questo punto qualcuno potrebbe 
dire : “Abbiamo detto che X aJPinìzio era 
0, poi, con istruzioni successive, conti- 
nuiamo ad incrementarlo, ossia ad au- 
mentarne il valore. Come è possìbile al- 
lora che questo valore ritorni ad un certo 
punto ad essere 0? 

Come detto in precedenza, A, X e Y 
non possono contenere un valore supe- 
riore a 255, per cui, se ad esempio X 
contiene 255 e lo incrementiamo di 1, 
non viene segnalato nessun errore, ma 
semplicemente, il valore, invece di di- 
ventare 256 come dovrebbe, ritorna a 0, 


loctt isttt codici DATA 


833 

LE DA 

1*00 

<169 0) 

835 

TAX 


< 170) 

838 

TAY 


< 168 ) 

83? 

INC 

33233 

<833 32 208 > 

840 

INX 


<232 > 

84 1 

BNE 

837 

<203 250) 

-i 

343 

INY 


<200) 

844 

BNE 

337 

<£08 £47) 

848 

RTS 


<38 ) 
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DAI MEMORIA AL TUO VIC-20 



CON QUESTA CARTRIDGE POTRAI 
ESPANDERE LA MEMORIA DEL TUO 
VIC-20 COME VORRAI: 3K-8K-16K 


Progettata e prodotta in Inghilterra dalla Stonechip Electronics 
questa cartuccia, tramite il semplice posizionamento dì micro- 
swìtch» ti consente un ampliamento differenziato della RAM» 3K 
d8Ko 16K, secondo quanto richiede il programma che devi far 
girare. 3 contatti placcati in oro, assicurano una lunga dura- 
ta a questa cartridge che darà nuova vita al tuo VIC-20, 

Un prezzo introvabile e garanzia per 6 mesi- 


PROGRAMMERS AID CARTRIDGE 



Questa cartuccia aggiunge ben 19 co- 
mandi al tuo VIC-20: renumber. auto- 
line, edit, sound, cursor, block, delete 
.... e altri. E' un prodotto della Stone- 
chip Electronics con 6 mesi di garan- 
zia integrale. 


MODULO DI ESPANSIONE PER VIC-20 



Questo modulo dì espansione differenziata, prodotto dalla Stone- 
chip Electronics, ti consente di utilizzare contemporaneamen- 
te {posizionando i microswitch dì cui é dotato) da 2 a 4 cart- 
ridges. Aggiunge inoltre alia ROM 4K* Inserendo con l'espan- 
sione Vìxen 16K Ram una espansione standard di 8K si otten- 
gono ben 24 K RAM, E' anche dotato di una presa per collega- 
re un ulteriore modulo di espansione. Garanzia 6 mesi. 

TRE CARTRIDGES COMMODORE PER 
VIC-20 AL PREZZO DI UNA 

Scegli i tre videogiochi che preferisci a Lire 41 .000 + IVA 

Codice 201: Sargon chess - Omega race - Avenger 
Codice 202: Omega race - Voodoo casti© - Rat race 
Codice 203: Ride Fort Knox - Avenger - Mole attack 
Codice 204: Gorf - Omega race - Cosmic cruncher 


COMPUTER CASSETTE C-20 


Nastri magnetici da venti minuti ad 
altissima affidabilità, specifici per com- 
puter. Nastro RE 619 AGFA, scorri- 
mento su perni in acciaio auto lubri- 
ficanti, assemblate con cinque viti, 
corpo elegantissimo completamente 
trasparente, complete di etichette e 
cartoncino. 



INTERFACCIA PER REGISTRATORE 
PER VIC-20 E PER CBM-64 _ _ 






La Stonechip Electronics é stata la prima ditta in Europa a rea- 
lizzare l'interfaccia per utilizzare qualsiasi registratore con i coni- 
puter Commodore. Continuamente aggiornata é di certo una del- 
le più affidabili presentì sul mercato, Garanzia di 6 mesi. 


LIGHT-PEN PER VIC-20 E CBM-64 


La penna ottica é uno dei più collau- 
dati prodotti della Stonechip Elec- 
tronics, Ha un'ottima stabilità e buo- 
na risoluzione verticale/orizzontale. 
Completa di cassetta programmi. 

Un prezzo conveniente e una garan- 
zia di 6 mesi. 



50 FANTASTICI VIDEOGIOCHI 50 
PER VIC-20 O CBM-64 


Registrati su nastro, della software- ho use inglese Cascade Ga- 
mes r atl'inveroaimile prezzo di sole L. 25.000 + IVA. 


Spedire il presente MODULO D T QfiDlNE, o fotocopia, in una 
busta chiusa, unendo L. 2.600 in francobolli per spese postali 

UN OMAGGIO A CHI ORDINA ALMENO DUE ARTICOLI 

- - ■ ■ - — 

Spetti© ARCO s.r.l. - Gas. Post. 239 - 10015 IVREA (To) 

desidero ricevere quanto da me contrassegnato con X, Pagherò 
direttamente al postino gli importi qui elencati, che sono com- 
prensivi di IVA e di spese di imballo e contrassegno. 


□ Vixen Switchabie 16K RAM a L, 95.000 

□ Programmar Aid Cartndge a L. 48.000 

□ Modulo di espansione per VfC-20 a L, 75.000 

□ 3 cartridges Commodore codice a L. 50.000 

□ 12 computer cassette C-20 a L. 15.000 

C Interfaccia per registratore a L, 31.000 

□ Light-Pen per VfC-20 e CBM-64 al. 65.000 

G 50 videogiochì per Zi VIC-20 G CBM-64 a L. 30.000 


i Non acquisto nulla ma desidero ricevere i Vostri cataloghi 
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Questa operazione, però, altera il 
KLAG, che viene automaticamente con- 
trollato dall'istruzione BNE. alterando 
così il normale flusso del programma. 

Abbiamo così ottenuto di cambiare 
256 volle (da 0 a 255) il colore del bordo 
dello schermo, però, utilizando il LM. 
questa operazione è talmente veloce da 
non risultare visibile o quasi dall'occhio 
dell 'osservatore. Bisogna perciò trovare 
il modo di aumentare il numero di cambi 
di colore, in maniera che l'effetto si noti 
almeno per qualche secondo. 

Siccome abbiamo detto che X e Y non 
possono contenere un valore superiore a 
255, un solo registro non ci basta più 
come confittole, ma dovremo utilizzarne 
due o più. Abbiamo ancora il registro Y 
libero (anch esso, ricordiamo. Azzerato 
all'inizio) e possiamo incrementarlo ogni 
volta che X ha finito 256 cicli, 

A questo scopo serve la linea 843. La 
linea 844 controlla con il solito BNE 
che Y non sia arrivato a II, ritorna alla 
linea 837, dove si riinizia il ciclo di 256 
cambi di colore con la X, e così via, per 
256 volte, fino a che V non raggiunge di 
nuovo il valore 0, 

In questo modo, abbiamo ottenuto di 
cambiare il colore del bordo 256" 
256=65536 volte! Si può notare, in que- 
sto caso, l'altissima velocità del LM che 
esegue tutto questo fin più « meno) due 
secondi, 

E’ appunto il cambio di colore così 
rapido (circa 30000 colori al secondo) 
che produce l'effetto di ' strisce colora- 
te 1 " sullo schermo. 

Ora però bisogna comunicare al 65 H) 
che la routine è finita e che bisogna ri- 
prendere il programma basic. A questo 
scopo serve l'istruzione RTS (Return 
imm Subroutine) della linea K46. che re- 
stituisce il coni mio al basic. 

Una precisazione da fare è che noi non 
possiamo mettere la routine in memoria 
così come è scritta, ma dobbiamo prima 
convertirla in numeri DATA e poi farla 
leggere dal calcolatore (vedasi linee 
1110, 1130 e 1200) 



Per chi ha il C 16 o il Plus 4 

Tutto quanto detto Finora è valido an- 
che per il C16/PLUS4 a patto di fare le 
seguenti modifiche: 

• Modificare la linea 160 in: 

160 PRINT CHR${147) 

• Cambiare la linea 180 in: 

180 SC=3072 

9 Cancellare la linea 190 e anche qual- 
siasi istruzione POKE che faccia riferi- 
mento al colore tnel programma sono le 


varie POKECL+ ... eccetera.) 

• Cambiare il PEEK<197) della linea 
370 in PEEKU98) 

• Cambiare i valori delle linee da 540 
a 570; 

1984 diventa 4032 
1064 diventa 3112 
2023 diventa 4071 
1025 diventa 3072 
Tutto quanto si dirà invece nella se- 
conda parte dell" articolo va bene solo 
per il CRMÓ4. 
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100 GOSUB 1060 ’.REM LETTURA DATI 
110 GOSUB 1000: REM SCHERMATA INI 
ZIALE ■ 

120 POKE 198 ,0 :REM A2ZERA BUFFER 
. DI TASTIERA 
130 : 

140 REM ** LISTATO 1 ** 

150 REM *** DISEGNA LABIRINTO CAS 
UALE *** 

180 POKE 53280,2: POKE 53281, 2 :PR 
, INT CHR$( 158) :REM CAMBIA I CO 
LORI 

170 PRINT CHR$U47):REM CANCELLA 
SCHERMO 

130 SC= 1024: REM MEMORIA DI SCHERMO 

190 CL=55296 : REM MEMORIA COLORE 
£00 INPUT "OSTACOLI <30-500 )" t N: RE 
M CHIEDE IL NUMERO DI OSTACOL 
I DA STAMPARE 
210 PRINT CHR* < 147 > 

£20 FOR K=1 TO N 
230 R = INT (RND( 1 )* 1000 ) + 1 : REM GENE 
RA UN NUMERO CASUALE TRA 1 E 1 
000 

240 POKE SC+R , 160: POKE CL+R,UREM 
STAMPA GLI OSTACOLI IN BIANC 

0 

250 MEXT K :REM FINE CICLO 
260 : 

270 REM ,** LISTATO £ ** 

280 REM *** STAMPA GIOCATORE E BE 
RSAGLIO *** 

230 POKE SC , 8 1 : POKE CL,0:REM ST 
AMPA IL BERSAGLIO IN NERO 
300 POKE SC +933, 87: POKE CL+999,5 
SREM STAMPA IL GIOCATORE IN V 
EROE 
310 : 

320 REM ** LISTATO 3 ** 

330 REM ** IN1Z IALIZZAZ IONE DELLE 
VARIABILI ** ^ 

340 TI$»"000000 ' i REM AZZERA IL TE 
MPO 

350 R=24 : C=33 : REM RIGA E COLONNA 
INIZIALI DEL GIOCATORE 
360 REM *** INIZIO GIOCO *** 

370 P=PEEK C 137 > : IF P=64 THEN 37 
01 REM ATTESA DELLA PRESSIONE 
DI UN TASTO 

330 IF P=1 THEN GOSUB 5 10: REM 
CONTOLLO PER PRESS IONE DI 'RE 
TURN’ 


390 POKE SC+R*40+C , 32 : REM CANCEL 
LAZ IONE GIOCATORE DALLA POS1ZI 
ONE PRECEDENTE 

400 C=C + < <P=10)-<P=18> ) :R=R + < <P=9> 
- <P=23 ) > :REM AGGIORN. R/C A S 
ECDNDA DEL TASTO 
410 REM * CONTROLLO LIMITI * 

420 IF C<0 THEN C=0 

430 IF R<0 THEN R=0 

440 IF R >24 THEN R=24 

450 IF 033 THEN C=33 

460 REM * CONTROLLA SE IL GIOCATO 
RE VA CONTRO A QUALCOSA * 

470 IF PEEK (SC+R*40+C ) < >32 THEN 
P=PEEK(SC+R *40 +C ) : GOTO 610 
480 POKE SC+R *40 +C ,87 s POKE CL+R* 
40 +C, 5: REM STAMPA GIOCATORE N 
ELLA NUOVA POSIZ 

490 GOTO 370: REM CONTINUO GIOCO 
500 : 

510 REM *** TASTO RETURN PREM1UTQ: 
CANCELLAZ IONE DI OSTACOLI VICI 
NI **# 

520 S=SC+R#40+C: REM MEMOR IZZAZ ION 
E POSIZIONE GIOCATORE IN S 
530 REM ** CONTROLLO LIMITI PER C 
ASCELLARE ** 


540 

IF 

9 

3< 1334 

THEN 

POKE 

S+40 

r 3 

550 

C 

IF 

S > 1064 

THEN 

POKE 

S-40 

,3 

569 

e 

IF 

3<20E3 

THEN 

POKE 

S + l , 

SE 

570 

IF 

5 >1025 

THEN 

POKE 

S-l, 

3£ 

530 

FOR 

n 

-f 

□ 

l 100e 

i:NEXT:REM 

C 


I CLO DI ATTESA 

590 RETURN: REM RITORNO AL PROGRAM 


MA PRINCIPALE 
600 : 

610 REM ** LISTATO 4 ** 

620 TM$=TI$:R£M MEMOR IZZAZ IOME TE 
MPO V 

630 REM *** FINE GIOCO *** 

640 IF P=3 1 THEN 790 : REM CQNTR 
OLLA SE SI E’ ANDATI CONTRO AL 
BERSAGLIO 

650 REM *** CONTRO AD UN OSTACOLO 
*** 

660 FOR 1=54272 TO 54296: POKE 
1 ,0:NEXT:R£M1 AZZERAMENTO REGI 
STRI MUSICALI 

670 REMI *** RUMORE ESPLOSIONE *** 
680 POKE 54236, 10: POKE 54272,214 
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:POKE 54273 ,28*. POKE 54277,11 
630 POKE 54273, 15SPOKE 54276,123 
700 REM *** CAMBIA I COLORI DEL B 
ORDO *** 

710 FOR K=1 TO 15s POKE 53280, K 
: FGR K 1 = 1 TQ 100INEXT K1,K: 
POKE 53280,2 

720 REM *** SCHERMATA FINALE *** 
730 PRINT CHR$< 147 ) 

740 PRINT" DISTRUTTO!'" 

750 PRINT" TEMPO: ";TM* 

760 FOR K =54272 TO 54296: POKE 
K,0:NEXT 

770 POKE 138, ©SPRINT” ...CIAO":EN 
□ :REM AZZERA BUFFER DI TASTI 
ERA E FINISCE 
780 : 

730 REM ** RAGGIUNTO BERSAGLIO ** 
800 RESTORE : REM AZZERA PUNTATORE 
DI LETTURA DATI 

810 FOR K=54£72 TO 54236: POKE 
K,0:NEXT 

820 REM i»** INI2 IALIZZAZ IONE VARI 
ABILI PER LA MUSICA *** 

830 V=54296 : N=5427S : A=54277 : HF =542 
73 : LF =54272 : 3 =54278 : PH =54275 i P 
L =54274 

840 POKE V, 10: POKE UI,65:P0KE A, 
180 «POKE PH , 15 : POKE PL,15:RE 
M VALORI INIZIALI 
850 REM *** LETTURA DATI MUSICALI 
E CONTROLLO PER LA FINE *#* 
860 READ H,L,D : IF H=-l THEN FO 
R K =54272 TO 5429G:PQKE K, 
0:NEXT:GOTO 320 

870 POKE 53280, L:POKE 53281, H:RE 
M CAMBIO DI COLORE A SECONDA 
DELLE NOTE 

380 REM *** PONE LE NOTE E LA DUR 
ATA KEI GIUSTI REGISTRI *** 

330 POKE HF ,H : POKE LF ,L : FOR X=D 
-50 TO D -20 : POKE S , 1 36 : l'EXT 
900 FOR T= I TO D : NEXT:REM DURA 
TA DELLE NOTE 

310 POKE HF ,0 : POKE LF ,0:PGKE LI, 
0 : GOTO 340: REM AZZERAMENTO N 
GTE E CONTINUO 

320 REM *** FIKJE MUSICA CSCHERMAT 
A FINALE) *** 

930 SYS 833: REM RICHIAMO DELLA RO 
UTINE IN LINGUAGGIO MACCHINA 
940 POKE 53280, 2: POKE 5328 1,2: RE 


M RIMESSA A POSTO DEI COLORI 
SFONDO/BORDO 
950 PRINT CHRSC147) 

360 PRINT” BRAVISSIMO, HAI RAGGI UN 
TG IL BERSAGLIO" 

970 PRINT' TEMPO : " TM$ . 

330 PRINT: FRI NT" . . . C I AG " : POKE 13 
8,0: END : REM A2ZERA BUFFER DI 
TASTIERA E FINISCE 

930 : 

1000 REM *** SCHERMATA INIZIALE ** 

t 

1010 PRINT CHR$C 147) : POKE 53230,2: 

POKE 53231 ,2 SPRINT CHR*<158) 
1020 PRINT" RACE-MAZE BY MARIANI G. 

Il 

1030 PRINT" PREMI UN TASTO PER INIZ 
IARE " 

1040 POKE 193,0 SUA IT 138,1: RETURN 
:REM ATTESA PER LA PRESSIONE 
DI UN TASTO 
1050 : 

1060 REM ** LETTURA DATI ** 

1070 S=0:FOR K= 1 TO 39 : READ A:S 
=S+A:NEXT:REM DATI MUSICALI 
1030 REM ** CONTROLLO PER DATI MUS 
ICALI ** 

1090 READ ASIF SOA THEN PRINT" 
ERRORE LEI DATI MUSICALI ! " :EKO 

1100 REM *** LETTURA DATI LM *** 
1110 S=0:FOR K= 1 TD 14: READ A:S 
=S+A : POKE 33£+K,A:NEXT 
1120 READ A: IF AOS THEN PRINT" 
ERRORE NEI DATI LM’sEND :REM 
CONTROLLO PER DATI LM 
1130 RETURN 
1140 : 

1150 REM ** DATI PER LA MUSICA ** 
1160 DATA 34,75,250,43,52,250,51,3 
7,375,43,52,125,51 ,37,250,57,1 
72,250,51 ,97 • 

1170 DATA 500,0,0,125,43,52,250,51 
,37,250,57,172,1000,51,97,1000 

1180 DATA 62 14 : REM CHECKSUM DATI 
MUSICA 

1190 REM ** DATI LM:ATTENZ IONE A C 
OPIARLI ESATTAMENTE ** 

1200 DATA 169,0,170,168,233,32,208 
,232 ,208,250,200 ,208 ,247,36 ,24 
26 


* 
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CARATTERI E CODICI 

DEL C 64 


» 

s « 
01 £ 
fl) *- 

H □ 



(0 

s a 

« — 

hj 

H 3 





Shift CIr/Moma Clear 




Ctrl 1 


Nero 


Commodore 1 Arane 


lì 

J:: 


t: 

II 

II 




M,, S 

Ciri 2 




Shift Crsr (SJ Up I >11 Ctrl 3 


Si 


Crsr (S> Down 


Ctrl 4 


Bianco 


Rosso 


Commodore 2 Marr 


Commodore 3 Rosa 


Anur 


L;:.j 


ih_m 


Shift FI 



Commodore 4 Grigio 1 



Shift F3 



I Shift Crsr (D) Left 




Ctrl S 


:::: 


Crsr(D) Righi I tu m wmì Ctrl fi 


:» : 

.Vi 


!P*3H 

S*_ «iti 


Ctrl 9 


Ctrl 7 


iiiiliii 


Ctrl 0 


r. i i „ 

Rvoff Ctrl fl 


Viola 


Commodore 5 Grigiori ** !**• 



Verde 


Ir 

n 

n 


li 

i- ' 

. , 

! 



Li 



Ir 


; 






11 

* 

L 

; 

Lj 




Sleu 



Commodore 6 Vérde 2 


Shift F5 


Giallo 




sns 

il i ili 


Commodore? Celeste 



Commodore S Grigio 3 


Shift F7 










Calcio Computer, 8 programmi 
software per Commodore 64, che di 
volta in volta ti insegneranno 
a compilare la schedina (e possibilmente 
vincere), elaborare i tuoi pronostici 
sulla classifica di campionato, raccogliere 
e consultare i dati delle squadre e dei 
giocatori di serie A e B. 

Con Calcio Computer si inaugura Mondosoft, 
il nuovo periodico per home computer 
della Mondadori. 

Ogni quattordici giorni in edicola con un nuovo 
i programma su cassetta corredato da un 
fascicolo a colori. 

Mondosoft, per esplorare i vari "mondi” 
del software. 


monDO 





L’ UTILE 

COMPUTER COMMODORE e DRIVE 1S41 


Gestione di Archivi 

* 

su Disco 


1 1 lettore 1 interessato alla manipolazione 
dei dall so disco può trovare nelle pagine 
che seguono un utile riferimento nella 
progra rum azione dell 1 IN PUT-OUTPUT ■ 
in questa prima parte vengono esposte 
quattro routine* per utilizzare files se- 
quenziali {creazione, lettura, scrittura, 
controllo errori)!. Viene inoltre proposto 
un programma che utilizza le routine* 
per la soddisfazione dei lettori interessati 
alla sola digitazione e come esempio di- 
dattico per chi si propone di approfondire 
l'argomento. 

Cos’è un file? 

Tutte le informazioni presenti nella 
memoria RAM - istruzioni {programmi} e 
dati - vengono inevitabilmente perdute se 
togliamo f alimentazione o procediamo a 
nuove memorizzazioni. Le memorie di 
massa (nastri, dischi), permettono di ov- 
viare a questo inconveniente consenten- 
doci di registrare o leggere le informazio- 
ni sotto forma di files. 

1 files sono quindi strutture di istruzio- 
ni o di dati; può essere utile, come chiari- 
mento, pensare al dischetto come ad una 
libreria dove ogni libro rappresenta un 
File. La gestione dei files di istruzioni, 
detti fi les-progra ruma, è affidata ai co- 
mandi SAVE, LO AD, VERIFY di cui 
tutti i lettori hanno buona conoscenza. 


Imparare a creare 
archivi mediante l’uso 
di semplici routines 
che gestiscono files 
su disco. 



Vengono invece qui trattali i files dati, 
che possono avere differente struttura in 
relazione al modo con cui si intende trat- 
tarne i contenuti, 

U n Data-file è costituito da un insieme 
di unità di informazioni omogenee dette 
record; ogni record a sua volta è diviso in 
campi. Per esempio, il file contenente Pe- 
lenco degli studenti di una certa classe 
potrebbe essere costituita da record come 
in figura 1- il file conterrà tanti record 
quanti sono gli studenti: la struttura in- 
terna del record viene quindi definita 
dall’utente. 

I files su disco nel Commodore 64 pos- 
sono essere organizzati in due modi diver- 
7 si: ad accesso sequenziale, ad accesso 
casuale, 

I file sequenziali sono strutturati come 
le canzoni su un normale nastro da regi- 
stratore, i record vengono scrìtti uno do- 
po l'altro; per rileggere l'ultimo occorre 
scandire il file dalfinizio alla fine. L ;na 
eventuale espansione deve essere effet- 
tuata caricando finterò file in memoria 
per poi registrarlo nuovamente con gli 
eventuali aggiornamenti o aggiunte. E. a 
caratteristica piu macroscopica è comun- 
que il fatto che non si può accedere alfi- 
esimo record in modo diretto e veloce. 

I files ad accesso casuale permei tu no 
invece di reperire in ogni istante il record 
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r 

! COGNOME 

L - ■ - - 

i t 

1 HOME 1 

t ....... 1- 

IiflTfi DI NASCITA 

1 INDIRIZZO t 

1 -1 

CAM 

PO 1 

CAMPO 3 

CAMPO 3 

CAMPO 4 


voluto senza scandire rimerò archivio 
(file-dati), Nel drive IS4I tali file?* pren- 
dono il nome dì RELATIVE e presentano 
Punico inconveniente deJTobbligodi asse- 
gnare {e rispettare rigorosamente in se- 
guito) una lunghezza precisa al record 
così come ai singoli campi che lo compun- 
gono. In modo da poter accedere ad un 
determinato record o ad un determinato 
campo con estrema precisione e velocità. 

Routine di mizializzazione archivi 

Il primo passo da compiere per lavora- 
re con i files dati è la loro creazione; que- 
sto è infatti lo scopo della prima routine 
proposta- Prima di affrontare le righe di 
programma è opportuno però premettere 
che esiste una procedura da rispettare 
nella trattazione dei filcs, detta “apertu- 
ra del canale" 1 . 

L'istruzione: 

OPEN nf,np,nc.,* MLnome fileULdT 1 
permette di espletare tale procedura. 

er numero di file (nf), sì intende un 
numero da l a 255 che servirà per identi- 
ficare il file nelle istruzioni di input- 
output; il numero di periferica (np), è 
normalmente 8 se si possiede un solo dri- 
ve; il numero di canale (nel, identifica la 
via di comunicazione con i l disco. Si tenga 
presente comunque che i canali I e 2 sono 
usati nelle operazioni dì LO AD e SAVE 
dal sistema operativo ed il canale 15 viene 
usato come canale dì coniando» su cui 
torneremo in seguito. 

Nelle virgolette oltre alla formula fissa 
0; (facoltativa per chi possiede un solo 
1541), si deve indicare il nome del file, il 
tipo (tf) che risulta V per sequenziale e la 
direzione (df): T w" (=write= scrittu- 


ra), oppure *r* (=read = lettura ). 

L* istruzione: 

OPEN l,8»3,^0:arcliivio,s,w" 
aprirà quindi un file sequenziale in scrit- 
tura su disco con il nome “archivio”» sul 
canale 3 identificabile con il numero L 
Una volta eseguita questa proceri ura il 
file potrà essere scritto io letto), semplice- 
mente usando le istruzioni PRINT nf, 
(INPUT nf, («ET nf), dove nf è ap* 
punto f identificatore del file su cui vo- 
gliamo lavorare. 

Ritornando alla creazione degli archi- 
vi, l'esame della routine che inizia alla 
riga HHKHI pone subito in evidenza ta pro- 
cedura utilizzata per l'apertura del Elle da 
creare. Tutti i parametri sono, i nfatli, 
dichiarati tramite la stringa NFS; questo 
sistema permette di aprire ogni volta un 
file Con nome diverso prelevato io input. 
La routine ISCHIO» chiamata in causa subi- 
to dopo, provvede al controllo di eventua- 
li errori eri il flag T permette di 
recuperarli. 

Nelle righe 10100 - 10110, si provvede 
alla scrittura delle prime informazioni. 
E' necessario notare che ogni print ef- 
fettua la scrittura di una singola unità rii 
informazione. All'interno rii un file se- 
quenziale» i dati devono essere separati 
l'uno da IP altro mediante caratteri spe- 
ciali. Nonostante il manuale del 1541 indi- 
chi come separatori validi il tasto re- 
turn, la i Èrgala e il punto e virgola, nella 
pratica gli ultimi due generano molteplici 
problemi. In fase di lettura, infatti, quasi 
sempre tali caratteri non vengono ricono- 
sciuti generando cosi l'accumulo di più 
dati in una sola variabile e ne consegue 
(con l 'istruzione INPUT ì che quando si 
superano i 256 caratteri viene emesso 
l’errore “String too long”. 


li isnlta evidente che Punico separato- 
re valido è il carattere chr$(l3) che deve 
assolutamente essere frapposto almeno 
ogni 80 caratteri in modo da evitare, in 
fase di INPUTé , Terrore menzionato» E f 
ovvio che se si ricorre alla sola istruzione 
(tET (in fase di successiva lettura) tale 
accorgimento può essere evitato. 

Un modo veloce di utilizzare il cafra! tu 
re di ritorno carrello (13) consiste nel far 
seguire una sola variabile ad ogni istru- 
zione PRINT 

TI primo dato registrato (NR$ riga 
12070) corrisponde ai numero di record 
presenti nel file, ovviamente zero in fase 
di iniziali/ /azione. 

IL secondo dato (NC$) invece, corri- 
sponde al numero dei campi dichiarati in 
input; indispensabile per definire il re- 
cord in fase di lettura. 

Il ciclo aperto in 10120, preleva in in- 
put i nomi dei campi per poi registrare gli 
Stessi sul file. In questo modo l'archivio è 
inizializzalo e contiene anche le indicazio- 
ni circa la struttura dei record» 

In altre parole, per come è strutturato 
il programma pubblicato» i primi dati de! 
file registrato su disco» avranno lo specifi- 
co compito di contenere le varie informa- 
zioni che interessano l'intero file. 

Routine di caricamento archivio 

Quando si lavora con gli archivi se- 
quenziali, come già precedentemente ac- 
cennato, è necessario caricare tutto l'ar- 
chivio in memoria per apportare modifi- 
che o aggiunte» 

La routine che inizia in 11000 espleta 
questa funzione. Essa provvede alf aper- 
tura dell'archivio prelevandone il nome 
in input. 

élla riga 1 1080 vengono poi letti il 
n. record ed il n. campi, i cui valori indica- 
no la quantità di dati da Leggere; con que- 
sti si definisce infatti il range dei cicli 
necessari a caricare una matrice stringa 
di due dimensioni (MD$), dove la riga 0 
conterrà ì nomi dei campi del record. La 
matrice in questione può essere dimensio- 
nata sia con i dati contenuti in NR$( righe) 
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e in N C$( colo rt ne) che in un modo stan- 
danf per poter trattare più file di diverse 
dimensioni nella stessa sessione, 

E* necessario tenere presente, inoltre, 
che i file non devono superare la capacità 
di memoria utente disponibile per poter 
essere manipolati. Ad esempio, se il vo- 
stro programma occupa ItMKMt byte*, ri- 
mangono disponibili per ì dati circa 29K 
(Commodore 64) questo significa che il 
vostro sequenziale non può superare tale 
grandezza per poter essere gestito 
completamente. 

Routine di registrazione archivio 

A lavoro ultimato, il file trattato deve 
essere registralo nuovamente pena rutili- 
la delle modifiche eseguite. La routine in 
riga 12000 sm rainteude alla registra- 
zione. 

L'apertura del file, iti questo caso, tie- 
ne conto della sua precedente esistenza su 
disco: l'opzione è indispensabile, infatti, 
per “ricollocare il file su se stesso"*. Tate 
comando, come sì può notare, è ^coper- 
to 1 ' da REM dato che, usato spesso, pro- 
voca malfunzionamenti sul dischetto. Ec- 
co perchè il file precedente viene cancella- 
to (comando Aerateli*' di riga per 

essere nuovamente riscritto dopo 
raggiornamene. 


Dopo T apertura del canale vengono 
immediatamente scritti i contenuti di 
!NRS, e NO: il primo dovrà contenere il 
numero di record presenti nella matrice, 
comprensivo delle aggiunte o variazioni 
effettuate. 

In seguito sì procede alla scrittura dei 
dati nello stesso modo in cui si procedeva 
alla lettura, semplicemente sostituendo 
l'istruzione INPUT# con PRINT#, 

Routine di lettura errore 

Il drive 1541 comunica al sistema quat- 
tro dati, leggibili in qualsiasi momento; 
questi dati sono, nclTordinc, il codice di 
errore, il nome, la traccia e il blocco in cui 
terrore c occorso. Un prò grarnma che 
gestisce Hles deve necessariamente prov- 
vedere al controllo degli errori, onde evi- 
tare “impiantamenti” non desiderali. 

Anche in questo caso è indispensabile 
l'apertura dei canale con Tistruzlone 
OPEN nf.8,15, Come si può notare it ca- 
nale in questione è il n. 15 mentre il n-fife 
può essere scelto liberamente tra quelli 
non utilizzati in altre aperture. Ogni vol- 
ta che si inizia un colloquio con la periferi- 
ca (open), sì dovrà leggere e gestire IV 
ventilale errore- Si deve tenere presente, 
inoltre, che il canale 15 deve essere aperto 
per primo e chiuso per ultimo, evitando 



Le immagini 
di questo 
fascicolo 


Tte genererò ni « carbonio: suta 
stando, un tubo * vuoto c#»wisl® 
ef&tia cosiddetta I generinone dt 
bonnori ùMttivntci e due tiansissorm- 
p*egàP Wto 2 secondi generatone, 
irt pomo ptóOO. r MOTStStor 
turineti grandi come gm* di sale nsJft 1 
nato - un ditale ne contiene 50.000 - 

presenti roruTMEi canteo dei 
Sistematalo Vadanone dei mtero- 
Ctttuùt intégrali. <M "*##*»“. tn po- 
eto mHatdesimi ót secóndo consente 
uekxtta operative mdte wft? sup&oon 
a qv&t* dWte Gaettone precedevi; 


cosi rischiose perdite di dati. 

La riga 15030 della mutine proposta 
per questo lavoro, legge i quattro valori di 
cui sopra; la riga seguente ritorna il con- 
trollo alla routine di chiamata se non vie- 
ne rilevato nessun errore, I /analisi viene 
fatta sul codice di errore; scorrendo la 
lista degli errori sulla guida del 1541 ci si 
rende subito conio che sono reali errori 
solo quelli corrispondenti ai codici da 20 a 
74, In presenza di uno di questi, viene 
infatti, stampato un messaggio di errore e 
sé pone uguale ad imo il valore del flag T 
per segnalare l'errore alla routine di 
chiamata che in tal caso ritorna al mairi 
program senza perdere i dati eventual- 
mente contenuti nella matrice MD$, 

Il programma 

Come già acce nato nella premessa, il 
programma che gestisce le quattro muti- 
li e s può essere con side rato sia come stru- 
mento di lavoro sui 11 le, che come piatta- 
forma di lancio per la preparazione dì un 
software personale* Per questa ragione 
non viene descritto il suo funzionamento, 
il lettore interessato troverà, infatti, il 
listato stesso un valido strumento di stu- 
dio* Chi desidera risultati immediati può 
mettere in funzione il lutto semplicemen- 
te trascrivendo il programma seguito dal- 
le routines. 

L'utility permette di creare e modifica- 
re archivi strutturati in max UN) record di 
max 10 campi. 

Il menu che appare dopo il *‘RUV\ 
visualizza tutte le possibilità del program- 
ma; a questo punto basta premere it nu- 
mero desiderato ed il gioco e fatto. 

Per sollevare il lettore da troppo lun- 
ghe digitazioni, il programma presentato 
appare “nudo" dal punto di vista grafi- 
co; una serie di Spennellate" alla facciata 
potranno renderlo più chiaro nella esecu- 
zione; inoltre possono essere inseriti dei 
controlli negli input per evitare errori di 
inserimento cosi come sarebbe opportuno 
aggiungere al menu la voce “ordinamen- 
to 1 ' per chi desidera l'ordine alfabetico 
dei record introdotti, 

D. Matturro M*L* Nrlti 
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ARCHIVIO SEQUENZIALE 

100 REM COMPUTER COMMODORE 
110 REM & DRIVE 1541 
130 REM 

140 REM GESTIOSE ARCHIVI 
170 REM 

180 REM M.L.NITTI 

185 REM D. MATTURRO 

190 REM 

800 REM i***************** 

810 : 

820 DIM MD*< 100, 10) : REM MATRICE 
DATI 

230 OPEN 15,8,15: REM APRE CANAL 
E DI ERRORE 

240 GOSUB 15000: REM LETTURA CA 
NALE DI ERRORE 

250 PRIMT CHR¥< 1 47 > : REM PULIZIA 
SCHERMO 

260 PR I NT : PR I NT TAB ( 10 ) "GESTIONE A 
RCHIVI ° 

270 PR INT: PR INTs PR INT : PR INT TAB (5 ) 
"III FISE" 

280 PRINT TAB <5 ) " 12 I CREAZ IONE " :PR 
INT TAB (5 > " 13 I CAR ICAMENTO “ 

290 PRINT TAB<5> "141 REGISTRAZIONE' 
"SPRINT TAB (5 ) * £5 1 LETTURA" 

300 PRINT TAB <5 ) "IBI SCR ITTURA " s PR 
INT TAB (5 ) " t7 J VARIAZIONE" 

310 GET A*: IF A*= " " GOTO 310 
320 ON VAL (A*) GOSUB 15110,5000, 
5000, 12000,2000,1000,3000 
330 GOTO 250 
340 : 

1000 REM SCRITTURA ARCHIVIO 

1005 : 

1010 NR=VAL(NR*)+l: REM NR= N.RECO 
RD GIÀ SCRITTI 

1020 PRINTCHR*U47> SPRINT TAB<10)"S 
CR ITTURA ARCHIVIO" 

1030 PR I NT: PRINT" RECORD N. " ; NR : FOR 
K-l TO VAL (NC$) 

1040 PR INTMD*(0,K INPUT f«i< 
NR ,K > : REM SCRITTURA CAMPO 

1050 NEXT K SPRINT: PRINT TAB<5>*3 PE 
R CONT I NUARE " 

1060 GET A*: IF AÌ=""GOTO 1060 

1070 IF A*<>"S" THEN NR$=STR*<NR> 

: RETURN 

1030 NR=NR+! :GOTO 1030 : REM INCR 


ESENTA N. RECORD GIÀ SCRITTI 
1090 : 

2000 REM LETTURA ARCHIVIO 

2005 : 

2010 IF VAL<NR*>< >0GOTO 2040 :REM 
ANALISI PRESENZA DATI 
2020 PR I NT : PR I ITT : PR I NT TABO) "ARCHI 
VIO VUOTO” 

2030 FOR K= 1 TO 1 500 SNEKTK: RETURN 
2040 PRINT CHR*( 147) SPRINT TAB<16>" 
LETTURA ARCHIVIO" 

2050 FOR K= 1 TO VAL <NR$) : REM CICL 

0 LETTURA RECORD 

2060 PR INT:PRINT*RECORD N. "iK 
2070 FOR KK= 1 TO VAL<NC$): REM CI 
CLO LETTURA CASPI 
2080 FRINTMO$<0,KK>; " = ";MD*(K ,KK) 
2090 NEHTKK 

2100 GET A$: IF A$=""GOTO 2100 
2110 NEXTK : RETURN 
2120 : 

3000 REM VARIAZIONE ARCHIVIO 
3005 i 

3010 PRINT CHR*<147) SPRINT TAB (10)” 
VARIAZIONE ARCHIVIO" SPRINT 
3020 NR=VAL(NR3D: REM N, RECORD SCR 
ITTI 

3030 INPUT "N. RECORD "fH 
3040 IF N >NR + 1 OR N=0 THEN PRIN 
TCHR* < 145 ) CHR$( 145 ) : GOTO 303 
0 

3050 PRINT: FOR K=1 TO VAL(NC*):REM 
CICLO DI INSERIMENTO AGGIORNA 
MENTI 

3060 PR I NTMDS ( 0 , K ) S SP=POS<0>SPR 

1 ITrSPC < 2 >M04 < N , K ) 

3070 PRINT CHRSU45) TAB<P>: INPUT 
MD*<N,K> 

3080 NEKT Ks IF N=NR+1 THEN NR*=ST 
R$(N> : REM INCR E NE NT A NR$ SE 
NECESSARIO 

3090 PRINT: PRINT TAB (5)" S PER CONT 
I NUARE" 

3100 GET A$: IF A*=“"GOTO 3100 
3110 IF A*0"S" THEN RETURN 
3120 GOTO 3000 

5000 REM CANCELLAZIONE MATRICE DAT 
I 

5010 FOR K=0 TO VALCNR*) :FOR KK=1 T 
0 VAL(NC*>:hO$<K,KK)=" " sNEXTKK 
,K 
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5020 NR$ = "0 " ! NC$- "0 lf 
5030 0N VAL<A$> GOSUB ,10000,11000 
: RETURN 
5040 : 

5050 : 

10000 ■ 

10005 REM INI2 IAL I22AZ IONE 
10010 REM ARCHIVIO SEQUENZIALE 
10020 : 

10030 FRI NT CHR*(147) SPRINT: F-0S RE 
M F=FLAG DI CONDIZIONE DI ERR 
ORE 

10040 INPUT "NOME ARCHIV IO M /NA$s REM 
MAX 1E CARATTERI 
10050 INPUT "NUMERO CAMPI “INC* 

10060 NF$=NA$+ “ ,S ,kT : REM STRINGA S 
PECIFICHE FILE 

10070 OPEN 3,3,3,NF* s REM APERTUR 
A FILE ARCHIVIO 

10080 G03UB 15000 =REM LETTURA CAN 
ALE Dì ERRORE 

10030 IF F = 1 THEN CLOSE 3 : RETURN* 
REM USCITA PER RECUPERO ERROR 
E DISCO 

10100 FR INT#3 ,0 : REM REGISTRA NUME 
RO RECORDS 

10110 PRINT#3,NC$: REM REGISTRA MJM 
ERO CAMPI 

10120 FOR H- 1 TO VAL(NC$>: REM CI 
CLO DI INSER I MENTO E REGISTRA2 
IOf^t NOME CAMPI 

10130 PR INT"NOME CAMPO -;Hi: ÌNPUTN* 
10140 PRINT#3,N$ SREM REGISTRA NOME 
CAhPO 

10150 MD*(0,H>-N* 

10160 NEXT HS CLOSE 3 t RETURN: REM C 
HIUOE FILE ARCHIVIO 
11000 3 

11010 REM CARICAMENTO ARCHIVIO 
11020 : 

11030 PRINTSPRINT TAB <5 > "NOME ARCHIV 
IO“? 

11040 F =0 : INPUT m* 

11056 NFS=NA*+" ,S,R SI : REM STRINGA S 
PECIFICHE FILE RICHIESTO 
11060 OPEN 3,3,3 ,NA$i REM APERTURA 
FILE RICHIESTO 

11070 GOSUB 15000 sIF F=1 THEN CLOSE 
3 s RETURN: REM CONTRGLLLO ER 
RORE 

11080 1NPUT#3,NR*,NC$S REM LETTURA 


N, RECORD, N,CAt*FI 
11090 FOR K=0 TO VAL<M»> 

11100 FOR KK= 1 TO VALCNCS) 

11110 INPUT#3,MD$<K,KK) s REM LETTUR 
A FILE 

11120 hEXTKK ,Ki CLOSE 3= RETURN 
12000 i 

12010 REM REGISTRAZIONE ARCHIVIO 
12020 i 

12030 PR I NT s PR I NT : PR I NT TAB <5 > “REG IS 
TRAZIONE IN CORSO" 

12035 REM ,, +W$+ s ,S,kT : REM 

STRINGA SPECIFICHE FILE 
1204© NF$= "50 : 11 +NA$: PR INT# 15 ,NF$: RE 
M CANCELLA FILE PRECEDENTE 
12045 M=*=NA$+” ,S,UT : REM STRINGA S 
PECIFICHE FILE 

12050 OPEN 4,8,4 , NFS: REM APERTURA 
FILE 

12060 GOSUB 15000: IF FM THEN CLOSE 
4: RETURN: REM CONTROLLO ERR 
ORE 

12070 PRINT#4,W?$: REM SCRIVE N. REC 
ORO PRESENTI 

120S0 PRlNT#4,NC*rREM SCRIVE N.CAMP 
I PER RECORD 

12090 FOR K=0 TO VAL (M3$) 

12100 FOR KK = 1 TO yAL(NC$> 

12110 PR 1NT#4 ,MD$CK ,KK > * REM SCRITT 
URA DATI 

12120 NEXTKK ,K s CLOSE 41 RETURN 
15000, i 

15010 REM LETTURA CANALE DI ERRORE 
15020 : 

15030 INPUT# 15 ,E ,E$,E 1 ,E2* REM LETT 
URA CODICI ERRORE 

15040 IF E <80 OR E>74 THEN RETURN: 

REM CONTROLLO PRESENZA ERRORE 
15050 PRINT: PR INT TAB <5 ) “ERRORE DISC 
0 * 

15060 PRIMI TAB<4)E,E$iREM STAMPA M 
ESSAGG IO ERRORE 

15070 PRINT TAB<5> ,t TRACCIA= , /El; M BL 
0CC0= ,, ;E2: REM STAMPA TRACCIA 
E BLOCCO 

15080 FRINÌ: PRINT TAB<5)"S PER CONTI 
NUARE " 

15090 GET ■ A$SIF AS= j| * THEN 15090 
15100 IF A$="S" THEN F = i : RETURN: RE 
M F= FLAG ERRORE 
15110 CLOSE Ì5JEND 
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COMMODORE 64 

Addenta 
Quelle Ruote 

1 1 dimensionamento delle ruote denta- 
te è un problema classico delia meccani- 
ca che, pur non presentando grosse diffi- 
coltà sotto l'aspetto teorico* per contro 
richiede un notevole numero di calcoli 
con relative consultazioni di tabelle. Ov- 
viamente questo lavoro è svolto dal pro- 
gramma che pubblichiamo, e tutto ciò 
che è richiesto è di conoscere alcune deli- 
nazioni che diamo di seguito, 

• Diametro di testa: è il diametro ester- 
no della ruota dentata (misurato cioè sul- 
la "testa ’ del dente). 

• Diametro di base: (o interno) è, di 
contro* quello misurato sul "fondo" del 
dente, 

• Diametro primitivo: (Dp) è il diame- 
tro a circa metà dentatura. 

E * 

questo il più importante dei tre c 
del quale si tiene conto net calcolo degli 
ingranaggi. Non vale esattamente la me- 
dia tra i diametri interno ed esterno per- 
chè i denti vengono dimensionati in mo- 
do tale che quando ingranano tra loro vi 
sia un po' di gioco, necessario per evitare 
rumorosità ed una rapida usura dei denti 
stessi. striscino Ira di loro. tale retta si muoversi, appunto, secondo 

A tal scopo questi ultimi vengono co- r* j una traiettoria detta ad evolvente). Cosi 

struiti seguendo una forma (profilo) che Erf evidente che se ciò si verificasse Costruiti, i denti 'rotoleranno " fra loro e 
permetta loro di lavorare nelle migliori {Ingranaggio risulterebbe notevolmente di conseguenza l'attrito sarà note voi- 
condizioni. rumoroso, senza contare che rattrito ge- mente ridotto. 

Affinchè ciò avvenga si deve assoluta- aerato dal contatto radente porterebbe Si definisce poi passo la distanza tra gli 
mente evitare che: ad un rapido deterioramento delle assi di due denti consecutivi misurata sul- 

• La testa del dente venga in contatto dentature, la circonferenza primitiva, valore che 

con la base dei denti dell'altra ruota. A per far fronte alfincon veniente si prò- corrisponde allo spessore del dente e del 
questo si rimedia semplicemente co- filano t denti seguendo una curva parti- vano adiacente. 

struendo il vano maggiorato rispetto alla colare detta "evolvente" (questa si ottie- Detto "z" il numero di denti, il passo 
testa (vedi figura 2). , ne facendo rotolare una retta attorno ad varrà: 

• I denti nel loro movimento relativo una circonferenza. Un punto qualsiasi di P = 3»I4*Dp/z 


Dimensionare ruote dentate cilindriche secondo norme UNI. 
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E’ chiaro che essendoci di mezzo un 
pigreco (3,141.,) questo dovrebbe essere 
espresso con un numero irrazionale. Si 
preferisce per comodità usare come pa- 
rametro caratteristico it cosiddetto Mo- 
dulo dato da: 
m = Dp/z 

li modulo non è altro che il passo divi- 
so per pigreco. Una volta consonilo il 
modulo, la dentatura è completamente 
determinata. Infatti sia l'altezza che la 
larghezza dd dente sono unicamente in 
funzione di quest'ultimo: 
h, = 13/6“ m 
larg, = (da H a 10)*m 
( = spessore consigliato) 
questo vale ovviamente per dentature 
unificate. Rapporto di trasmissione (R). 
Quando abbiamo un motore che gira ad 
una certa velocita (pensiamo al motore 
dell’auto), può sorgere il problema che il 
numero di giri a disposizione non sia 
quello desiderato. 

Per avere all 'utilizzo (in questo caso 
l'albero di trasmissione} un numero di 
giri diverso, bisogna operare sulla scelta 
dei diametri, avvalendoci delle seguenti 
relazioni: 

Vm/vc — De/dm = Zc/zm = R 

Dove: 

Vm = velocità ruota motrice ( = che ge- 
nera il movimento). 

Dm — diametro primitivo ruota motrice, 
Zm — numero di demi ruota motrice. 

Ve — velocità ruota condotta ( = trasci- 
nata dalla motrice). 

De = diametro primitivo ruota condotta, 
Zc = numero denti ruota condotta. 

Si definisce quindi il rapporto di tra- 
smissione R come il rapporto fra le velo- 
cità o i diametri o il numero di denti delie 
due ruote. 

Il primo listato 

* 

Prendiamo in considerazione il caso 
più generale che può capitare in pratica: 

• Conosciamo la velocita del motore e 
quella che vogliamo ottenere 

* Abbiamo delle dimensioni da rispetta- 
re quali interasse e ingombro (vedi figura 
1) Si pensi alla scatola de! cambio dove 


le dimensioni sono solitamente predeter- 
minate e devono essere il più possibile 
contenute. Dato il RUN* il programma 
chiede dì immettere l'interasse e il rap- 
porto di trasmissione, 

Quindi possiamo scegliere se far calco- 
lare al programma stesso tl valore del 
modulo, oppure se vogliamo immetterlo 
noi. Naturalmente questo valore deve 
essere proporzionale al diametro delle 
ruote, in quanto all'aumentare del mo- 
dulo diminuisce il numero di demi, se- 
condo la relazione: 

Z = Dp/m 

E r opportuno precisare che il numero 
di denti non può scendere al di sotto di 
certi valori (da Iti a 15) per evitare un 
funzionamento discontinuo e rumoroso. 
Nel caso si voglia calcolare il valore del 
modulo* il programma individuerà il mi- 
nor numero di denti possibile. Da questo 
riceverà, con l’a esilio di una tabella, il 
valore unificato che più si avvicina a 
quello calcolato. 

E anche possibile immettere il dato 
direttamente. In questo caso verrà mo- 
strata la tabella dei valori tra i quali ope- 
rare la scelta. 

Un esempio 

Come valori iniziali battiamo (misure 
in mm,)i 

Interasse = 300 (R) 

Numeratore del rapporto di trasmissio- 
ne: 3{R) 

Denominatore: 5 (R) 

R ispondiamo No alla richiesta di im- 
missione del modulo, dopodiché verran- 
no mostrate 5 diverse possibili soluzioni. 
La prima rappresenta il caso con il minor 
numero di denti possibile teoricamente. 
I primi due dati in alto sono rispettiva- 
mente I interassee il rapporto di trasmis- 
sione di partenza, che probabilmente si 
avvicineranno ma non coincideranno 
esattamente con i valori calcolati. 
Questo si spiega col fatto che s moduli 
unificati sono solo una quarantina e Fin- 
tervallo esistente tra un valore e il succes- 
sivo dà luogo a inevitabili 


NEKI SDf T sii. 

Accessori per Computer 

Via Carbone, 8 -Tel. 0187/674097 
19033 Caste In uovo Magra ($P) 

Nastri per stampante 

« Prezzo 


Commodore MPS 

801 

11*000 

Commodore MPS 

802, 


Tally 80 


12.000 

Commodore MPS 

803 * 14.500 

Commodore 8024 .. 


5.100 


Epson MXTO.aO^.ea.ERC-Oa. 

rat), Rxeo. Fxeo, 

Commodore 4022, 

8022, IBM P/C, Sharp 

CE332P, MZ 80P5A, PC32Q1 -, - 8.200 


Commodore 3022 r 3023, 
Epson TX80, Itoti 8300R, 
OKI 60, 82A, 83 A, 82, 93, 
Sharp P3 


rii f rm s i- - ^ -s i 8--P-4 ■ »---■• * 


3,000 


Epson MX1G0 9,900 


Commodore 8023P, MPP 1361 
Sharp B0P4A, Centronics 150 


0.950 


Commodore 8026, 
8027, 8032 


.. 6.950 


Dischetti SF/QD *10 
(con box trasparente) 


I P- 94 ■ PFBÌ+ 


38.000 


Dischetti DF/DD x 10 
{con box trasparente) ,, 


43.000 


Disco per pulizia delle testine. 
Questo può essere usato per 
drive cqn una o due facce. 

Il liquido basta per circa 
15 applicazioni 


8 i 8884 ■ 8834 1 ■ 818 ■ 881 


1 2.200 



Usate la seconda faccia del 
WS Mini disco. Tagliate a metà il costo dei 
Dischetti! Foratore di Dischetti per usare 
anche l'altra faccia del disco. 

Per esempio Co miti odore 20/64, 

Apple 4, Atari, ecc. a sole 1 2.700 

Tutti i prezzi sono IVA inclusa 

Pagani en Eo co ntrassag n o. Po r ord li ni su peri or i a 
L 50.000 spese postali a nostro carico. 

SPECIALI SCONTI A TUTTI 
I RIVENDITORI 


Commodore Computer Club - 4 7 


















IN CLASSE 


arrotondamenti, 

Ad esempio la n, 2 avrà come valori: 
301 mm ed R — 1/1.69 contro i 300 mm 
ed R = 3/5 “ 1/1.67 iniziali. 

Come si può vedere ì 'approssimazione 
è abbastanza buona e molto probabil- 
mente compatibile con i dati costruttivi. 
Fatta la scelta leggeremo nella pagina 
successiva tutti i dati che interessano per 
la completa definizione dei rotismo. 

Il secondo listalo 

Con il secondo programma t possibile 
calcolare la partenza massima che può 
essere trasmessa dall'Ingranaggio in esa- 
me. Questa è funzione del modulo, del 



diametro primitivo e del numero di gin di 
funzionamento, 

G li ultimi due parametri influiscono 
sulla velocità periferica della ruota che è 
molto importante conoscere, per deter- 
minare il carico di sicurezza de! materiale 
scelto. 


Il programma infatti mostrerà un me- 
nù con i diversi materiali usati abitual- 
mente, e chiederà in input il valore del 
carico di sicurezza statico (Kg/mml2). 
Questo verrà poi ricalco lato in funzione 
della velocità periferica, dato che questa 
aumenta le sollecitazioni indotte sui 
rotismi. 

Verrà infine mostrata la potenza (in 
cavalli) che può essere trasmessa a varie 
velocità di rotazione. I criteri di calcolo 
possono variare anche notevolmente. 

Comunque le formule usate sono 
quelle date normalmente nei manuali di 
meccanica. 

Flavio Moli nari 


100 
1 10 
180 
130 
140 
150 
180 
170 
180 
£00 


8 18 


££0 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

** 

DATA 

75,1 

DATA 


******* ** ********* ***** 


* 

* 

* 

* 

* 

* 

* 


COMMODORE B4 


RUOTE DENTATE 


BY FLAVIO MOLINARI 


* 

* 

* 

* 

* 

* 

* 


*********************** 
*** TABELLA MODULI UNI * 

.5, .75,1 ,1 . 125, 1 .£5,1.3 
5, 1 ,75, £,£. 25 ,2.5 ,£.75 
3,3,85,3.5,3/75,4,4.5,5 


310 R=A/B : I F R< 1 THEN R-B/A 
315 X=R 5 GOSUB 8S0iR^K:RA=R 
380 PRINT:PRINT ,F VUOI IMPOSTARE IL 
MODULO 7 < S/N) 11 

330 GET Q$:IF THEN 500 

340 IF Q$<>*N" THEN 330 
360 REM MINIMO NUMERO 01 DENTI 
370 S=3IN<£0*rf/180 ) t£ : Z 1 =8/ (SQR CR 
*R+ C i+£*R) *S >~R ) 

380 REM D 1 AMETR I E MODULO APPROS 
SIMATI 

390 DI =£*!?/< 1+R> :De=Dl*R;M=Dl/Z l 
400 Q= 1 ! REM RICERCA MODULI UNIFI 
CATI 


,5.5,6,6.5,7,8,3,18 
£30 DATA 11 ,18, 14, 16, 18,80,88,85 
,88,38,36,40,45,50 
£40 DIM MOC40):FOR Q=1 IO 40: 

READ M E MO CQ ) -M: h£XT 
860 REM *** INPUT * 

870 PR INT" CCLEAR ] PROPOR Z I0NANO4T0 
DELLE RUOTE DENTATE " 

280 PR INT“C IL INDR ICHE SECONDO NDR 
ME UNI . ” 

285 PR I NT "TUTTE LE DIMENSIONI SON 
0 ESPRESSE IN MILL II*ETR ! . " : PR 
INT 

290 INF UT " INTERASSE = MM*JlTs IE= I 
T SPRINT 

300 PR INT "RAPPORTO DI TR0SMISS1GN 

E ( fl/B > s " 

302 INPUT "NUMERATORE 

304 INPUT " DE NO M I NA TORE <B)“;B 


408 

\ 

IF 

0 

M >50 

THEN 

Q-40^ GOTO 48 

404 

IF 

0 

M< 1 

THEN 

5: GOTO 48 

410 

IF M>M0 (Q ) THEN Q-Q+ 1 « GOTO 
410 

480 

FOR 

T = 1 

TO 5 

:M<T)=M0(Q-T4i 


) sNEXT 

450 GOSUB 9701 POR Q=1 TO 5:M= 
M<Q): GOSUB 300 

460 PR INT" IRVS ISOLUZ IONE "Q " CRVOFF 
] " J : GOSUB 330 : NEXT : GOSUB 9£ 
0 : END 

500 PR INT "QUESTI SONO I MODULI UN 
IFICATI : " SPRINT 

510 FOR Q = 1 TO 40 ! PR INT MOCQ), 
: hEXT : PR INT ; I NPUT "SCEGL I " J M 

515 01=e»IT/C 1+R> :D2=DUR 

5£0 GOSUB 970: GOSUB 800: GOSUB 
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STUDIO D 

PER NON SMARRIRE MAI IL FILO DEL DISCORSO. 
STUDIO D 

EMITTENTI RADIOTELEVISIVI INDIPENDENTI (HE SI FANNO SENTIRE. 


studio 

d 


CONCESSIONARI MEZZI 
RADIOTELEVISIVI 


STUDIO D 

Via Rossini 5 - 20122 MILANO 
Tel. (02) 799.592-7S2.503 
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328 SENO 

300 REM *** D I ! V ENS 1 CINA MENTO ##* 
310 2 1 3 INT <□ I/M+ . 5 ) : Z£= INT <D2/M+ . 

5) SREM NUMERO DENTI 
320 P1=M*Z 1 :P2=M*Z2:T1 3 P1+2*M:T2= 
P2+2*M 

830 B1=P1~14/6*M:X=B1 JGQSUB 360: 
B 1 =X 

840 B£=P2“ 1 4/S*M! X=B2 JGOSUB 360 s 
B2=X 

850 IT=(P1 +P2)/2; IG=T 1 +T2-2*M: REM 
INTERASSE E INGOMBRO 
855 R=Z2/2 1 !X=RsGOSUB 860:R=X:RE 
TURN 

3S0 K = INT <X* 100+ . 5 >/100 : RETURN: RE 
M ARROTONDAMENTO 
880 REM *** STAf*PA *** 

390 PRINT TAB ( 14 ) ”MOOULO= "M; TAB 
(26) “R=1/'R!PRINT 
900 PRINT" INTERASSE 3 ’ IT? TAB (20)" 
INGOMBRO =* IG 

910 PRINT* 

“ J RETURN 

920 REM *** SCELTA ROTISMO *** 

922 PRINT “QUALE SCEGLI ? (1-5)* 
924 GET Cf$: IF Q*<"I" OR Q*>"5 

" THEN 924 

326 M=M ( VAL ( Qi ) ) : GQ3UB 300:GOSUB 
970 

923 PR I NT :PRirsiT" RUOTA I ! " SPRINT 

929 PR INT"D I AM. PRIM. = "PlJ" ** N 
. DENTI =“2I 

930 PR INT“0 1 AM. DI TESTA= °T 1 : PR IN 
T"D1AM. DI BASE= "B 1 

932 PRINT: FRI ITT “RUOTA £i" i PRINT 

933 PRINT-D1AM. PRIM. ="P2J" ** N 
. DENTI =“22 

334 PRINT”D1AM. DI TESTA= "T2 :PR IN 
T“DIAM. DI BASE= "B2 s PRINT 
936 PR INT "MODULO 3 "Mi PR I NT “PASSO = * 
J :PA=M*rf:X=PA:GOSUB 360:PA=X 
SPRINT PA 

938 PRINT" ALTEZZA DENTE 3 *; INT( 13/ 
6 *M* 1 00 + . 5 ) / 1 00 

940 PRINT" INTERASSE-" IT: PRIHT"ING 
OMBRO 3 " IG 

942 PR INT "RAPP . DI TRASMISS. 3 1/" 
R: RETURN 

970 REM *** VALORI INIZIALI *** 
930 PRINT" [CLEAR I INTERASSE TEORIE 

0 3 " I E 


990 PRINT "RAPPORTO TEORICO R="A’/ 
b B* 3 1/"RA 

1000 PRINT" 

• : RETURN 

RUOTE DENTATE DUE 

£000 PRINT* f CLEAR 3CALCOLO DELLA PO 
TENZA TRASMISSIBILE PER RUOTE 
DENTATE * 

£005 PRINT: INPUT 'MODULO = MM (0.5 
-50) n ;M! INPUT "DIAMETRO PRIM 
ITIVO 3 MM";D 

2010 PRINT : PRINT" IRVS DMA TER IAL ! : " 
: PRINT • 


2020 

PRINT "MATERIALE PLASTICO 
£ KG/MM+2 *' 

KS = 

2030 

PRINT "ALLUMINIO 

3 " 

KS = 

2040 

PRINT”GH ISA 

5" 

KS = 

2050 

FRI NT "BRONZO FOSFOROSO 

KS- 


6 " 

2060 PRINT" ACCI A IO AL CARBONIO KS = 
10 " 

2070 PR INT"ACC I A IO AL NlKEL KS = 
18” 

2080 PR INT" ACC I A IO AL NIKEL-CROMO 

KS=£5 " 

2090 PRINT "ACCI A IO AL NI-CR ALTA R 
ES1ST. KS=50 " 

2100 KS* 3 '*CARICO DI SICUREZZA KS “ 
£105 PRINT: PRINT "SCEGLI IL "KS*; : I 
NPUT KS 

2110 N( 1 )«500:N(£) =2000 :N(3) =5000: 

N(4 ) =3000 s REM NUMERO DÌ GIRI 
2115 PRINT" [CLEAR] ,, KS*" = , ’KS SPRINT” 
MODULO ='M: PRINT "DI AM. PR1MIT. 
= "D s PR I NT 

2117 PRINT "POTENZA MAX TRASMIS IB IL 
E A : "SPRINT 

2120 POR Q= 1 TO 4 :REM ELABORAZ 
IONE 

2130 V = i( #D*N<Q )/60000 : REM VELOCI? 
A' PERIFERICA 

£140 KD 3 KS* <3/<3+V) ) SREM CARICO D 
I S1CUR. DINAMICO 

2150 P=M*M*KD*D*N(Q)/716200:P=INT< 
P* 100+.5 )/100:REM POTENZA 
£200 PRINT N(Q ) "G I R I/MINUTO 3 "P "CV " 
sNEXTsEMD 
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# 

l ì Telefono 
col 64 

dì Gloriano Rossi 

« 


A gli albori dei personal ed horne com- 
puter* era ri uso porsi la domanda: quali 
saranno i limiti di queste macchinette? 

Le risposte erano molteplici. Chi di- 
squisiva sulle limitazioni deli 1 hardware, 
chi invece istaurava discorsi prolissi sulle 
caratteristiche dei linguaggi. Nessuno o 
pochi però avevano veramente individua- 
to la vera risposta al problema. 

La fantasia umana 

Fa ormai parte della storia, e noi italia- 
ni abbiamo la nostra fetta di storia da 
rivendicare. Da quando nel 1977 vide la 
luce il primo personal computer vera- 
mente tale, il Commodore PET200I (old 
ROM) incominciò l'invasione nelle case 
private. Di cosa? I>i software, natural- 
mente. Fantasioso, bizzarro, improbabi- 
le, geniale: ogni genere di idea. Giochi, 
programmi didattici, utilità. O gestiona- 
li. Proprio ii) quest 'ultima fascia incon- 
triamo i tentativi più numerosi. 

Una applicazione di un certo valore di- 
pende da due Tattorì estremamente im- 
portanti: la capacità reali zzati va e la 
professionalità. 

Su molte riviste di settore, non ultima 
sulla consorella “Commodore”, sono ap- 
parsi in passato articoli sui possibili utiliz- 
zi del telefono collegato al computer. Ar- 


Un'agenda un kit, una 
segretaria: T E 
combina mirabilmente 
il telefono ed il 
computer per darti 
tutto questo. 



gomento peraltro piuttosto delicato. E* 
infatti tassativamente proibito manomet- 
tere in qualsiasi modo un apparecchio 
telefonico, tan tomento la linea di comuni- 
cazione SEP, Ogni applicazione suggerita 
dalle riviste può essere studiata esclusiva- 
mente in via sperimentale e comunque 
non sulle linee ufficiali, pena sanzioni o 
revoca del contratto con l'azienda telefo- 
nica, A conferma di ciò ognuno di noi 
può documentarsi leggendo nelle prime 
pagine dell'elenco abbonati il regolamen- 
to ministeriale. 

o gni progetto deve superare esami se- 
verissimi, prima di ricevere l'omologa* 
rione da parte della Sip.Ecco quindi tor- 
nare il concetto di capacità e professiona- 
lità di una azienda. 

La società Como Computer ha realiz- 
zato un sistema che è stato ritenuto valido 
dal Ministero delle Poste e Telecomunica- 
zioni e quindi omologato neJFuso.Un suc- 
cesso che ribadisce le nostre capacità 
creative e che dimostra ulteriormente co- 
me le software house italiane nulla abbia- 
no da invidiare ai colossi del software 
d'olt reoceano, 

uali sono a questo punto le caratteri- 
stiche che sono riuscite, per loro qualità, 
a superare il difficile ostacolo minìsteria- 
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L 1 UTILE 


le? E 1 presto detto. 

I) “ telefono Elettronico” delta Como 
Computer è un sistema misto: costituito 
da una parte hardware e da una parte 
. software. 

L’hardware 

L*elettrontea del sistema “TE” della 
Como Computer È estremamente sempli- 
ce. Da una parte uno scatolina da connet- 
tere al C64 serve proprio da interfaccia 
fra il computer e la Linea telefonica. Dal- 
l'altra una spina, chiamata maschio fem- 
mina, da mettere Ira la presa SIP e la 
spina del telefono. La semplicità già a 
questo punto è totale: nessuno sicura- 
mente potrà mai lamentare difficoltà 
d* installazione. 

La configurazione hardware necessa- 
ria è quindi sintetizzabile in: 

• un telefono a spina {di cui si abbia 
regolarmente pagato la relativa bolletta); 

• un Kit del “Telefono Elettronico” del- 
la Como Computer; 

• un computer Commodore 64 (fra non 
molto sarà disponibile una versione di 
“TE” per PExecutive 64 ed in seguito 
una rekase per il P!us4); 

4 un floppy disc drive Commodore 
1541; 

• un monitor monocromatico o colore. 


• Ragione sociale 

• Data del prossimo appuntamento, 
espresso nella forma GGMMAA { giorno, 
mese e anno ) 

§ Fascia oraria di presenza 

• Numero telefonico. (D numero telefo- 
nico è comprensivo del prefisso, dei nu- 
mero vero e proprio ed infine dei tempi di 
pausa programmabili) 

• Indirizzo 

• Codice di avviamento postale 

• località 

• Cumulo del numero delle telefonate 
effettuate con quel corrispondente 

0 Cumulo dei tempi e/o scatti delle tele- 
fonate con quel corrispondente 
0 Dota dell' ultima telefonate effettuata 
con quel corrispondente 
0 Cumulo dei tempi e/o scatti delle tele- 
fonte effettuate con quel corrispondente 
0 Note varie inseribili in un totale dì sei 
righe di schermo per un totale di 240 
caratteri. 

Nell'archivio principale ogni nominati- 
vo può essere creato, modificato o cancel- 
lalo facilmente. Si potrà quindi aggiorna- 
re qualsiasi caratteristica: dal numero te- 
lefonico alla ragione sociale, dal l’indi riz- 
zo all'azzeramento del contatori. Sul di- 
schetto lavoro sono presenti altri archivi, 
piu o meno trasparenti, che permettono 
una più ampia possibilità di utilizzazione 


del sistema “TE”, Ad esempio l'archivio 
* ‘■lista dì attesa 11 o quello di “memoria". 

L* operati vita dì TE 

Quando il programma “TE” è presen- 
te in memoria, il sistema si informa: chie- 
de data e ora. Quindi rimane in attesa 
operativa. Da qui in poi si potrà interagi- 
re con l'archivio principale, ricercare un 
nominativo, comandare al “TE” di com- 
porre un numero di telefono, porlo in 
attesa, memorizzarlo per un prossimo 
appuntamento, etc. In ogni momento l’u- 
tente può informarsi su quali appunta- 
menti, telefonici o non, ha in quel deter- 
minato giorno ed in quale fascia ora- 
ria ;un nominativo può esse re chiamato in 
maniera automatica o semiautomatica. . 

In sintesi l'utente ha per le mani la più 
efficente segretaria telefònica esistente. 

A questo punto mi sorge un sospetto: si 
potrà comandare al “TE” (avete notato 
che leggendo al contrario.,,) di farmi da 
svegla? Potrei ad esemplo mantenere in 
funzione il sistema in ufficio, impostare il 
mio numero di casa con relativo orario 
per la chiamata. E TE alio scoccare dei- 
para definita mi telefonerebbe e mi fareb- 
be proprio da sveglia telefonica. Spen- 
dendo solamente uno scatto e forse nem- 
meno quello! 


Il software 


Il software del “TE” è la migliore sin- 
tesi dì ciò che è comunemente conosciuto 
con il nome di Time Manager, un pro- 
gramma che gira nortnalihente sotto si- 
stema operativo CP/M che ci permette di 
organizzare, nella maniera piu opportu- 
na, il nostro tempo. 

Una vera agenda super gestita magi- 
stralmente dal C64. 


Nel kit “TE” è presente un dischetto 
che contiene appunto U software die per- 
mette una facile gestione di ben 706 nomi- 
nativi (per curiosità personale ho voluto 
controllare quanti fossero i numeri telefo- 
nici delle irne rubriche: poco più di 2061), 
Ogni nominativo occupa su disco poco 
più di 570 caratteri cosi organizzati: 



52 - Commodore Computer Club 




La MT/80+ e la PC dispongono di 
interfacciamento parallelo e seriale che permette 
di connettere questi prodotti a qualsiasi Micro oPC, 
Per la stampo a basso costo, le stampanti delia 
famiglia MT/80 sono perfette, rispondendo ad 
ogni tuo necessità di stampa, 

La velocità di stampa é a 100 a 130 cps. con una 
matrice estremamente chiara e pertanto ideale 
per stampare i tuoi listati, le tue lettere eco, 

Le stampanti della famiglia MT/80 
oltre che trascinare la corta con 
trattori d' ; spinta consentono 
anche, per mezzo della frizione, di 
inserire if foglio singolo. 

Le MT/80 sono belle a vedersi, 
facili da usare, non richiedono 
manutenzione preventiva, 
silenziose ed in più lo versione 80 
PC é completamente 
Tutte compatibile con il tuo PC IBM. 

le garanzie 
del n, 1 
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GIOCHI 

COMMODORE 64, C 16, PLUS 4 


Stress 

Mentale 


elio studio delle malattie da iperten- 
sione g durante un normale esame di 
medicina sportiva, i pazienti vengono 
sottoposti ad una prova di sforzo durante 
la quale il ritmo cardiaco e la pressione 
vengono comi imamente monitorati. 

La prova di sforzo può essere esclusi' 
vamente fisica, (pedalare su un'apposita 
cìdette), oppure anche mentale. Uno 
dei modi per sottoporre un paziente ad 
uno stress mentale è quello di costringer- 
lo a decrementare una grossa cifra sot- 

traendo m continuazione un numero 

» 

qualunque. Il tutto naturalmente deve 
essere effettuato in un tempo limite altri- 
menti addio stress! 

Durante Pesame un medico controlla 
su una tabella i risultati delle sottrazioni 
effettuate dal paziente (la tabella è ne- 
cessaria per non mandare in stress anche 
il medico), mentre un altro paio di medi- 
ci controllano la pressione e il tracciato 
dclPclcttro-cardio-gramma del paziente 
durante In prova stessa. 

Il programma non pretende certo di 
effettuare un esame vero e proprio ma ad 
esso si ispira per permettere ad ognuno 
di noi di confrontare la propria velocità 
di calcolo con quella degli amici. 

Un consiglio è però doveroso: non in- 
sistete molto nel tentare di migliorare il 
vostro punteggio, altrimenti lo stress co- 


Mettete alla prova 
riflessi e nervi in una 
prova di forza con il 
computer. Ma senza 
esagerare: lui , 
alla fine, 
vince sempre. 



mincerà a farsi sentire, e allora inizierete 
a sbagliare con maggior frequenza facen- 
do calare di volta in volta il punteggio che 
volevate migliorare. 

[| programma infatti assegna ad ogni 
sottrazione ben fatta un punteggio inver- 
samente proporzionale al tempo impie- 
gato. II punteggio massimo per ogni sot- 
trazione è 10, ma dopo un secondo è già 
passato a 9 poi 8 c cosi via. Se si arriva 
sotto lo zero sarà il computer stesso a 
darvi il risultato ma deerementerà il vo- 
stro punteggio totale di 10 unità. Più ve- 
locemente svolgete le sottrazioni, più ve- 
locemente il punteggio sale; se invece 
superate un tempo limite di 10 secondi 
per ciascuna sottrazione il punteggio ca- 
lerà paurosamente. 

Naturalmente per il conteggio dei die- 
ci secondi è stato utilizzato l'orologio in- 
terno, mentre per la visualizzazione delle 
cifre sono stati utilizzati maxi-caratteri 
costruiti attraverso l'uso dei caratteri 
semigrafici. 

Per una più facile battitura del pro- 
gramma, a fianco di ogni istrusione di 
stampa, sono stati specificati i tasti da 
premere per ottenere i caratteri semigra- 
fici (0= tasto Commodore in basso a 
sinistra sulla tastiera). Non stressatevi 

4 

troppo! 

I.MCA 0#SujEIÌ 
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Le stampanti MT/85, a 80 colonne, e MT/84, a Ì36 
colonne, rappresentano una nuova frontiera nel 
settore delle stampanti a basso costo. 

Bosso costo, ma non bassa qualità e basse 
prestazioni, infatti ecco le credenziali di questi due 
nuovi prodotti. 

Velocità a ^ 80 cps. bidirezionale ottimizzata, NLG 
a 45 cps., grafiche, possibilità d 8 fonti alternative 
di caratteri e naturalmente la completa 

compatibilita con il PC IBM. 
li prezzo: si più competitivo del 
mercato in questa fascia di 
prestazioni, 

Naturalmente anche le MT/85/86 
oltre ai trattori hanno anche 
trascinamento a frizione e 
consentono pertanto il 
trattamento del foglio singolo. 


J 

I.. . - ' 


Tutte . 
le garanzie 

del il 1 


20094 Corsica (MI) - Via Cadamosto, 3 
Te . (02) 4502650/655/360/845/ 670 -le. ex 311371 Tally I 
00137 Roma - Via I De! lungo, 42 - Tel. (06) 3273456 
10099 San Mauro (TO') Via Casale, 306 ■ Tel (011) 6225171 
40050 Moni e veglio (SO) - Via Einstein, 5 - Te ; (051) 632506 
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I 



10 

REM 

C-16 VIC 

20 

20 

REM 

COMMODORE 64 

81 

REM 

PLUS 4 


£8 

m 

m 

. 


85 

REM 

- STRESS 

MENTALE - 

30 

35 

* 

V 

REM 

DI LUCA 

GALUZZ I 


90 : 

95 Xl=0iX£=0 SPRINT CHR*<147)"1- V 
IC 20 & C-64" 

96 PRINT"£- C- 16 & PLUS 4* 

37 SET GG*:IF GG$=" " THEN 37 

98 GG= 198 s IF GG*="2' THEN 6G=£33 

93 POR 1 = 1 TO 4:GU >=630+1 sNEXT 

100 IF GG=£39 THEN FQR 1=1 TO 4 
:G C I ) = 13 13+1 sNEXT 

105 POKE GG,0 

106 XX***" :FOR 1 = 1 TO 10sXX$=XX*+C 
HR*( 17) :NEXT:XX*=CHR*( 19)+XX* 

110 PRINT CHR$( 147) "IL SEGUENTE 
TEST PERMETTE DI MISURARE* 

120 PRI ITT "QUANTI TATI VANENTE LA 
VOSTRA SOPPQR-" 

130 PRINT "TAZ IONE DI UNO STRESS ME 
NTALE PROTRATTO" 

140 PR INT”PER QUALCHE MINUTO. PE 
R METTE NEL CON-" 

150 PRI NT “TEMPO DI AUMENTARE LA 
VOSTRA AGILITÀ ’ " 

160 PR I NT " MENTALE DI CALCOLO." 

170 PRINT" IL CONPUTER VI PROPORR 
A’ UN NUMERO DI" 

130 PRINT“QUATTRO CIFRE DAL QUA 
LE DOVRETE S0T-" 

190 PRI NT "TRARRE IN CONTINUAZIONE 


UN NUMERO DATO" 

£00 PR INT"D 1 DUE CIFRE, PER UN NU 
MERO 01 VOLTE" 

£10 PR INT’SCELTO ALL'INIZIO." 

£20 PRINT" TUTT 

0 QUESTO DOVRÀ 1 " 

230 PRI NT "ESSERE FATTO NEL MINOR 
TENFO POSSIBILE* 

£40 PRINT "POI CHE ' IL PUNTEGGIO C 
HE VIENE ATTR I - * 

£50 PR I NT " BU I TO AD OGNI SOTTRAZ I 0 
NE E’ CONTINUA-" 

£60 PRINT "MENTE DE CREME NTA TO , QUI 
NDI PIU’ VELOCE" 

£70 PRINT"SARA ' LA RISPOSTA MAGGI 
OR PUNTEGGIO VI" 

£80 PRI NT "SARA' ATTRIBUITO." 

£85 INPUT "QUANTE VOLTE <MIN.9S)",- 
XI 

£90 PRINT" C£ DONNI PREMI UN TAS 
TO PER CONTINUARE" 

300 GET A*: IF A$= " " THEN 300 
305 PRINT CHRSC147) 

310 N=INT(RND( 1 )*7000)+£000 
3£0 M*INT (RND C 1 >*89 )+10 
330 IF M/10 = INT <M/I0) THEN 3£0 
340 GOTO 800 

400 REM ***:M***********«******** 
*** 

410 REM *** STAMPA NUNERI 
*#* 

420 REM *************4*********** 
*** 

490 IF X 1 < =X£ THEN 10000 
500 PRINT CHR$< 13) " 

"sREM 36 

SPAZ 1 

510 PRINT CHR*< 19) "PUNTEGGIO "JPJ" 

TOTALE " J T f 

5£0 A = 10!G= 3 NT <N/ 1000) SH=G 
530 GOSUB 9000 

540 A=15!G=INT<N/100)-<G*10) :L=G 
550 GOSUB 9000 

560 A=£0 ■ G= INT (N/ 10)-(G*10)-(H# 100 

■ ) 

570 GOSUB 3000 

580 A =£5 :G=N-<G*10)-<L*100>-(H*100 
Q) 

590 GOSUB 9000 
600 PRINT XX$ 

610 A = 1 5 s G = I NT ( M/ 10) 
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Caro piano media, prendi le vitamine 



b 

Seconda mono, il medio ^vitaminico più indicato in Lombardia, (Vito mino B) /(Ma copie bisettimanali - (Vitamina C) 700mila lettori, con aumento costante del 30% an- 
nuo - (Vitamine A, E, D) Network di 29 tentate a inserzioni gratuite come copertura razionale. Posologia e indicazioni; Usare spesso. Lozione tonificante delle /Ornila copie 
e dei ZOOmìla lettori è stato sperimentata con successo anche sui piani medio più abulid. Controindicazioni; Nessuna, 
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630 SOSUB 3013 
625 PRINT XX$ 

630 A=£0:G=M-tG*10> 

640 SOSUB 9019 

650 PRINT XX* OHR*<m CHR*(17) 

660 PRINT TAB < 1 1 ) " — * iRFM C + 

P 

673 RETURN 

300 REM ************************* 
* 

810 REM **** M A I N *** 
, * 

820 REM ************************* 
* 

330 P = 10 s POKE GG,0 
840 TI*= "000000" 

343 GOSUB 430 

845 P=P- INT ( T 1/100) i IF TI>=100 THE 
N 840 

850 IF P=0 THEN 950 
870 IF PEEK <GG > <4 THEN 842 
885 J=PEEK<G<4) ) -48+ (PEEK (Gt 3 ) )-48 
) * 10 

890 J=J+ (PEEK (G(£ ) > -48 > * 100 + (PEEK ( 
G(l) ) -48 ) * 1000 


Le immagini di questo fascicolo 



. THE ENIAC 

EléCTUOWSC NtfMEBtC*L ì*lT|CflATflft An0 


Dimeno. Oiio-ita fMii C«*™i»4Ttc-' 


L Eniac, prodotto in collaborazione 
dainjntvbfSitA della Pennsylvania e 
d$lt' esercito degù Stati Uniti. Oltre a calcoli 
sana traiettorie dei ' 
missili, il calcolatone 
serve a van studi 
scientifici: da ricerche 
sui raggi cosmicigd 
atfre sulfenergia 
aiomtca. luffe lo 
operazioni effettuate 
dgtfl'Emac sono 
lampt ficaie mediante 
impulsi elettronici 
generati al ritmo di 1QÙ 
mila al secondo. 


905 POKE GG ,0 s K2-X2+ 1 

910 IF J -N-M THEN N=N-Ms T~T +P : GOTO 

830 

930 GOSUB 30030 
940 GOTO 330 
350 GOSUB 20030 
960 GOTO 830 
1000 PRINT TAB ( A ) " 


s REM SHIFT 
N ,C= Y ,C = Y ,SHiFT M 
1010 PRINT TAB ( A ) "| !REM C= G 

,C= M 

1020 PRINT TAB < A ) r, l 
,C = M 

1030 PRINT TABCA)* 

M ,C= P ,C~ P , SHIFT N 
1040 RETURN 

1100 PRINT TAB < A ) " A u 1 REM SHIFT 

N ,C= G 

1110 PRINT TABCA)" \ " ! REM C= 6 

1120 PRINT TASCA)" \ " = REM C= G 

1130 PRINT TAB ( A ) " _L " JREM O P 

,SH IFT L 
1140 RETURN 

1200 PRINT TASCA)"/ \ n SREM SHIFT 

N r C* Y ,C = Y , SHIFT M 


I" sREM C- G 
11 : REM SHIFT 


1210 

PRINT 

TAB (A J * 7 

Jl : REM 

C= P 

i 

rC= P 

,SH IFT N 



1220 

PRINT 

TAB ( A ) "/ 

" :REM 

SHIFT 


N 




1230 

PRINT 

TAB(A) *| 

; REM 

SHIFT 


L ,C- 

F ,C= P ,C= 

P 


1240 

RETURN 




1300 

PRINT 

TAB (A) "/ \ 

" t REM 

SHIFT 


1310 

1320 

1330 

1340 

1400 

1410 

1420 

1430 

1440 

1500 


N ,C= Y ,0 Y , SHIFT M 

PRINT TASCA)" : REM C = F 

,C = P f SH IFT N 

PRINT TAB ( A ) " \“ s REM SHIFT 

M 

PRINT TASCA) " N. /" 1 REM SHIFT 

M ,C = P ,C= P , SHIFT N 
RETURN 

PRINT TAB < A ) * A “ -REM SHIFT 
N ,C= H 

PRINT TASCA) h / | “i REM SHIFT 
N !■€= H 

PRINT TAB C A ) */ i*sREM SHIFT 

N ,C* H 

PRINT TABCA) T" : REM C= Y , 

O Y/C- Y, SHIFT 0 
RETURN 

PRINT TASCA) T " • REM SHIFT 





Desidero ricevere le cassette con il 
software pubblicato sui seguenti numeri 
di Commodore Computer Club; 


importo L ........ 

spese di spedizione L 1 .000 


Totale 


~ ho versato l'importo sul c/c postate n 
31532203 (allego fotocopia della ricevu- 
ta dr versamento) 

7_ accludo assegno non trasi n 

(banca 1 

intestato a C.CX, viale Famagosta, 75 
20142 Milano 


nome 


cognome 


CAP/città 


Ritagliare e spedrte in busta chiusa a: Systems 
Editoriale v.lc Famagosta ?5. 20142 Milano. 

Abbonatevi a Commodoro Computer Club 


! programmi più interessanti spesso sono 


Commodore Computer Club vi offre un'al- 
ternativa; le pa ssette con tutti i programmi 
pubblicati sulla rivista. ' * '■?¥ 

Ogni nastro contiene il software di un nu- 
mero dì Commodore Computer Club a un 
p rezzo incredibilmente basso: solo 5.80 0 lire 
(+ 1.000 lire per spese di.spedizione). 

Riceverete le cassette direttamente a casa 
*Vcs3ra, utilizzando il coupon qui a fianco. 
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0 ,C~ Y f C- Y r C- Y 

1510 PRINT TAB ( A ) "I 11 i REM SHIFT 

L ,C = P ,C= P 

1520 FRINÌ TABCA)" \"=REM SHIFT 
M 

1530 PRIMI TAB C A ) " \ / n * REM SHIFT 

M, C = F,C* P, SHIFT N 
1540 RETURN 

1600 PRIMI TAG<A)V ViREM SHIFT 

N, C = Y /C» Y, SHIFT M 

1610 PRINT TAB < A ) *| n ! REM SHIFT 

L ,C= P,C = P 

1620 PR I NT TAB < A > B | \" ! REM C = H t 
SHIFT M 

1630 PRINT TABCA) "W" a REM SHIFT 

M, C- P,C = P ,SH IFT N 
1640 RETURN 

1700 PRINT TAB < A ) ! REM C~ Y , 

C= Y Y, SHIFT P 

1710 PRINT TAB C A ) " /" sREM SHIFT 

N 

1720 PRINT TASCA) " / "iREM SHIFT 

N 

1730 PRINT TAB (A)* / " ' REM SHIFT 

N 

1740 RETURN 

1800 PRINT TASCA) V V 1 REM SHIFT 

N, C= Y,C- Y, SHIFT M 

1310 PRINT TAB ( A > * \ /* S REM SHIFT 

M, C= P,C = P, SHIFT N 

1820 PRINT TAB ( A > "/ Vi REM SHIFT 

N, SHIFT M 

1830 PRINT TABCA) "\_/ H iREM SHIFT 

M, C- P,C- P, SHIFT N 
1840 RETURN 

1900 PRINT TAB (A) V V s REM SHIFT 

N, C = Y,C = Y, SHIFT M 

1310 PRINT TAB C A > p s l" ! REM SHIFT 

M ,C = P,C = P, SHIFT £ 

1920 PRINT TAB (A)" I"iREM C= N 

1930 PRINT TAB < A > " REM SHIFT 

M,C = P,C^ P, SHIFT N 
1940 RETURN 

ssep * 

8310 REM SCELTA CIFRA 
8920 : 

8000 PRINT CHR$ C 19 ) CHR$C i?> CHRÌ< 1 
7) CHR$< 1 7 > CHRSC 17) 

9010 QN G+1GOSUB 1000,1100,1280,130 
0,1400,1500, 1600,1700,1900,190 
0 


8020 RETURN 
10000 i 

10010 REM FINE GIOCO 
10020 : 

10030 PRINT" CCLEAR H3 DGUNIHAI TOTAL 
122 AIO " Ur "PUNTI ■ 

10035 PRINT" C£ DONNI" 

10040 IF T<0 THEN PR I NT "ALLENATI ! S 
E I MOLTO SCARSO " 

10050 PR INT"C4 DOWNIVUGI RICOMINCIAR 
E ?" 

10055 POKE GG,0:T=0 
10057 GET A$:IF A3>= " " THEN 10057 
10060 IF A$="3" OR A$="Y" THEN 10 
10070 PRINT" t OLEARI 12 DOUNJC I AO . . . “ 
10030 END 
20000 : 

20010 REM TEMPO SCADUTO 
20020 s 

20030 IF GGM98 THEN POKE 53280,1 
f GOTO 20035 

20035 FOR K= I TO 500 : MEKT 
£0040 N=N-M 
20056 T”T- 10 

20060 IF GG= 198 THEN POKE 53230,0 
: RETURN 
30000 : 

30010 REM ERRORE 
30020 : 

38030 IF GG- 138 THEN POKE 53231,1 
30035 FOR K- l TO 5001NEXT 
30040 N=N-M 
30050 T*T-10 

30060 IF GG=198 THEN POKE 53281,0 
30070 RETURN 
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GIOCHI 

COMMODORE C 16 

Abbatti 
il Muro 



La variabile A1S che compare in linea 
2JO. si ottiene in questo modo: (tasto 
Commodore = C) 

A 1S="<C + 4> <CTRL + 9> <spa« 
i\o> <CTRL + 0> <CTRL + +> <C 
+ 3> <CTRL + 9> <spazio> <CTRL 
+ t)> <CTRL + 1>" 


Per la variabile A2$, i simboli usati 
sono p.li stessi. 

Se i tasti di movimento A e ’L' non vi 
sembrano ‘comodi', potete cambiarli 
semplicemente modificando i caratteri 
tra 'virgolette' (“A” — -."L") di linea 4(31} 
e 4 Kb 


CjiitrtrrtrluCiwIap.na 


B i sogn a abbattere il muro, mattone 
dopo mattone, con una pallina, I rimbal- 
zi della pallina, sono comandati da una 
specie di racchetta che può muoversi solo 
verso destra o verso sinistra. Questi mo- 
vimenti, si possono ottenere premendo i 
tasti A" (destra) ed L‘ (sinistra). 

Se In pa Mina colpisce la parte centrale 
della racchetta, rimbalza verticalmente, 
mentre se colpisce la parte destra o sini- 
stra. rimbalza con un'inclinazione di 45 
gradi (rispettivamente, verso destra o 
verso sinistra). I tentativi a disposizione 
sono 4 (quattro palline) ed ogni pallina è 
persa se scende al di sotto della 
racchetta. 

p 

m. er iniziare il gioco, o per riprenderlo 


Mattone dopo 
mattone , colpo 
su colpo. 

Il gioco più semplice 
per il tuo nuovo C 16 

dopo la perdita di una pallina, occorre 
premere il tasto Alia fine del partita, 
premendo 'Y si ricomincia, mentre pre- 
mendo N’ si ferma il programma. 

Il programma, fa largo uso dì istruzio- 
ni PFF-K e POKE, tutte riferite alla me- 
moria di schermo, che va da 3(372 a 4(371 
(sullo schermo possono apparire’, nello 
stesso istante. Il KK) caratteri). 
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i REM 
e REM 

3 REM 

4 REM 

5 REM 

6 REM 
? REM 
3 i 
3 : 

100 PRINT CHR$C 147)? S 1 =3922 ! S2 = 33 
£3: 83=3324: S4=3603 
110 II =40: SP-37 s POR I=307£ IO 
3151: POKE 1,160: NEXT 
120 B 1$= " [RVS JGAhC OVER [RVOFF J M : B£$ 
= n C RVS 3CAMP I ONE [RVOFF 1 * : PRINT 
CHR$C13> 

130 PRINT SPCC4) M [RVS 3 ABBATTERE IL 
MURO ! [RVOFF] " SFC<6> "tRVS}<2Ì8 
35 CAST [RVOFF ]" 

140 PRINT CHRSC17) CHR$(17) SPCC36 
) ” [RVS ] PUMI I [RVOFF] 11 
150 PRINT CHR$<J7> CHR*(1?) CHR$<17 
~ ) SPC <23 ) 11 [RVS IP ALL IME [RVOFF 3 N 

160 PRINT CHR*<17) SPC (£3) "• • • • 

M 

176 PRINT CHR*<17> CHR$<17) CHR*<17 

> SPC <28 ) " [RVS 1START ’fc' [RVOFF 
] " 

180 FOR 1=3152 TO 3131 i POKE 1,2 
32 I POKE 1+830,180: (EXT 
190 FOR 1=3132 TO 3332 STEP 40 
: POKE 1,220: POKE 1+33,160 
200 POKÉ 1+25,220: [-EXT: POKE 3131, 
160 

210 A l*=" [GRIGIO 1 ] [RVS] [RVOFF JCNER 
01 [ROSAI [RVS] [RVOFF J [NERO I " : A 
2±= “ l ROSA ] [ RVS 3 [ RVOFF ] [NERO ] [G 
RIGIDI ] [RVS] [RVOFF ] [NERO ] " 

220 PRINT CHR*( 1 9 ) CHR*<1?> CHR*<17 

> 

£30 PRINT CHR$<29>;: FOR 1=1 TO 
12 : PRINT Al*;: NEXT : PRINT 
240 PRINT CHR*<29>;: FOR 1=1 IO 
12: PRINT A2*s : NEXT: PRINT 
250 C=C+l: IF C<4 THEN 230 
£60 FOR 1=3333 TO 4016! POKE 1,1 
02 : NEXT 

270 PRINT CHRSC19): FOR 1=1 TO 3 
: PRINT: NEXT 

280 SP =SP -2 ! PRINT SPC(SP) " " 

£30 POKE SI, 73: POKE 32,113: POKE S 



3,80: POKE 64,81 



300 

GET 

QSS IF 0 $ O p £ " 

THEN 

300 

310 

GET 

m 



3£0 

84 = 

34+1 I: POKE 84,81 

: POKE 

34 -I 


1 ,3£ 



330 

IF 

PEEK<84+40>=102 

THEN 

630 

340 

IF 

PEEK (54+ I I>=i 19 

THEN 

I I=- 


40: 

GOSUB 6£0 



350 

IF 

PEEK CS4+ II) =80 

THEN 

I I = “3 


3 : 

GOSUB 6£0 



360 

IF 

PEEK CS4+ II) =78 

THEN 

1 1 = -4 


1 : 

GOSUB 6£0 



370 

IF 

PEEKC34-40)=160 

THEN 

GOSU 


B 

500 



380 

IF 

PEEK C 34-40 ) =£3£ 

THEN 

GOSU 


B 

590 



390 

IF 

PEEK <S4+ 1 ) -££0 

OR PEEK (.84 


-1 > 

=££0 THEN GOSUB 

550 


400 

IF 

M*a J, A“ THEN 4£0 


410 

IF 

M*="L" THEN 460: ELSE 3 


10 




4£0 

SI = 

Sl-i: S£=S£-i: 83 

= 53- 1 



430 IF SI <3313 THEN SI =33 13: 32 = 
3314: S3=39 15 

440 POKE 81,73: POKE S2,113: POKE S 
3,80: POKE S3 + 1 ,32 
450 GOTO 310 

460 S 1 =S 1 + 1 s S2=S2+ 1 s 33=S3+ 1 
470 IF 83 >3936 THEN S3=3336: S2 = 
3335: 31=3934 

480 POKE Sì, 73: POKE S2,113: POKE S 
3,80: POKE S 1 - 1 ,32 



*i *********************** 

* COMMODORE C16 * 

% * 

* ABBATTERE IL MURO! * 

* * 
* GIANCARLO CASTAGNA * 
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430 

GOTO 

310 




500 

POKE 

84 -40 , 

32 



510 

IF 

I 1 =-40 

THEN 

I 1 =40 


520 

IF 

I I = -33 

THEN 

11=41 


530 

IF 

I j =-4 1 

THEN 

1 1=39 


540 

RETURN 




550 

IF 

11=41 

THEN 

I I =33; 

RETURN 

560 

IF 

I 1=33 

THEN 

li =4 1 : 

RETURN 

570 

IF 

I I =”33 

THEN 

I 1 = -4I 

: RE TUR 


N 





580 

IF 

I I = -4 1 

THEN 

1 1 =-33 

: RE TUR 


N 





590 

IF 

I I =-40 

THEN 

1 1=40: 

RETURN 

600 

IF 

I l = -4 ! 

THEN 

I ì=33: 

RETURN 

610 

IF 

I I = -33 

THEN 

11=41: 

RETURN 


620 V0L8 ‘ SOUND 1,500,10: RETURN 
630 V0L3: 3OUND3,500, 10: H=0: PU=0 

: GOSUB 72S 

640 P 0 K E SI ,32 * POPE S2, 32: POKE S3 
,32; POKE S4,32 

650 S 1 =3922 : 82=3923: 93=3324: S4 = 3 
603: 11=40 

660 B3Ì=B1$: B=B+1: 1F B;4 THEN 
270 

670 F OR 1 = 1 I O 13 : PR INI': NEKT : 

PRINT SPC <2© > B3$ 

680 FRI NT L H R $ 1 3 7 ? SPC (3 li "f/'N" 

680 GEI Ri: IF R$=*N*’ THEN END 
700 IF Ri= * i “ THEN 710: ELSE 6 
30 



710 C =0 : 6=0; FU-0: GOTO 100 
720 FGR ] =3 133 + H TO 3216+HS IF 
PEEK ( I ) =32 THEN FU=PU+1 
730 NEXT : H=H+40: IF H<320 THEN 

720 

740 PRINT CHRS< 19) : FOR 1=1 TG 5 
: PRINT: fEXT 
750 PRINT SPC < 30) PU 
760 ÌF PU=IS2 THEN S3£=B2$s GOTO 

670 

770 RETURN 






« ■ i V 

• * * « \ \ 


\m 

wtk 


Le immagini 
di questo 
fascicolo 


Jotm vo.n Neumann scienziato d osarne 
ungherese e i9 Sua rnaccrt^ i'FDvAG 
fvuo > dt*e: computer elettronico a variatola 
automatica discreta} efebo rata nei W5 
no ir istituto di Studi Avanzati deir università 
to' Princeton ne gii Stati Uniti. H principale 
concetto introdotto da von Naumann e 
quello d> "programma memorizzato " fi 
calcolatore diventa elaboratore: copeco dt 
eseguire istruzioni intermedie € 
soprattutto. di franare qv&SswS* 
mformazione. n<aì so* cifra 
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COMMODORE 64 


Il Ranocchio 
Affamato 


U na rana affari ut il ù a caccia dì insetti* 
alcuni spriic multicolori che continuano 
a passare casualmente, in orizzontale 
sutlo schermo* Il ranocchio è invece fatiti 
eli due o tre sprite. a seconda che si trovi a 
terra o in volo, Premendo un tasto qual- 
siasi* lui tiì un balzo. Fi se l'insetto viene a 
contatto con la testa* ecco che sparisce 
nelle fauci dell'anfibio affamato. 

Pi aumenta il punteggio. 

Ad ogni balzo però il ranocchio fa un 
balzo in avanti, rendendo così più diffici- 
le la cattura dell'insetto, 

questo punto, il problema diventa 
unicamente di strategia, a voi il compito 
di risolverlo. 


La rana ha fame, e gli 
insetti sono vicini. Ma 
se sei bravo puoi farne 
un gioco ancora più 

bello. 

iftsa r uh i t 


? 


Rispetto ad altri giochi simili, questo 
ha la particolarità di essere tanto sempli- 
ce e chiaro da potere essere rivoluziona- 
to c abbellito dai vostri interventi. 

In particolare, potrete sbizzarrirvi nel 
rifare gli sprite multicolori e la toro 
animazione, 

Abbandonando l'idea del ranocchio, a 
saltare potrebbe ad esempio essere un 
piccolo pac-man, una molla ingorda, un 
piccolo canguro. 

La nostra proposta si trasforma cosi in 
una specie di canovaccio sul quale lavo- 
rare liberamente. Passo a passo, salto 
per salto. 


Luca (iallu/zi 






di questo fascicolo 


£’ una macchina g.'g*r.nfesca 300 cMometn g. i*i,v st- 
irici coi tfegana 78 calcolante». Conitene 3300 refe par 
muovere le pesti meccaniche. E 1 il MaPf t, 5 tenne fiele 
di peso, messo e ponto nel r 044 alfunfvereitè di Har- 
vard. E' H pómo ■c-tf ; 'ctii , e. , On? ^nimefreo d* tipo urw aras- 
te I dai. numerici possono essere nìtfodotti mediacre 
rtsif/'-O perforato o interruttori azionai) manualmente 
(nei nquedro) 
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100 PR1NT CHR*U47) 

110 POKE 53281, 6: POKE 53280,8 
120 C=255 s S= 1 99 sUI-50 ! G=0 
130 2$=CHR*<13) 

140 : 

150 : 

160 REM G.A.L.E.R.A, SOFTWARE 
170 i 

130 REM RANOCCHIO 
130 : 

200 REM DI GALU2ZI LUCA 
210 : 

220 : 

230 V =53248 
240 POKE V+21,0 
250 RESTORE 

260 FOR A= 16000 TO 16383 
270 READ B : POKE A ,B 
230 NEXT 

290 PR1NT CHR*(13)" PUNTI n !RE 

M 6 SPAZI 
300 Q =PEEK < V +30 ) 

310 POKE 2040,250 
320 POKE 2041,251 
330 POKE 2042,252 
340 POKE 2043,253 
350 POKE 2044,254 
360 POKE 2045,255 
370 POKE V ■*■28 ,255 
330 POKE V,C 
330 POKE Vt 1,100 
400 POKE V+2, 50 


410 POKE V+3,220 
420 POKE V+4,26 
430 POKE V+5,220 
440 POKE V+6,50 
450 POKE V+7,189 
460 POKE V+8,26 
470 POKE V+9,193 
480 POKE V+ 10,26 
430 POKE V+l 1 ,220 
500 POKE V+2 1 ,7 
510 POKE V+40,2 
520 POKE V+33,14 
530 POKE V+38,5 
540 POKE y+37,0 
550 POKE V+42,2 
560 REM **** M A I N 4**4 
570 C =255 * POKE V+21 ,PEEK<V+21 ) OR 
1 ! POKE V + l , UNT<RNO(l >*100) )+5 
0 

530 C=C-5 s IF C<=0 THEN 570 
590 POKE V,C 
600 IF ZO0 THEN 630 
610 IF PEEK (203 ) < >64 ANO Z=0 THEN 
Z = 1 ! GOTO 630 
620 GOTO 530 

630 POKE V+21 ,PEEK<V+21 > AND 248 
640 POKE V+21 ,PEEK<V+£1 ) OR 56 
650 IF Z=i THEN S=S~I5 
660 IF Z =2 THEN S=S+25 
670 IF S<70 THEN W=W+10:Z=2 
680 IF W>245 THEN 120 
690 IF S > 133 THEN Z =0 : S = 1 93 : POKE V 
+21,7 

700 POKE V+2 ,Wì POKE V+4 ,W-24:P0KE 
V+6 , Ws POKE V+8 ,W-24 ! POKE V + 10, 
U-24 

710 POKE V+7 ,S ì POKE V+9,SspQKE V+l 

1 ,S+21 

720 P=PEEK<V+30) ANO 8 : IF P=3 
THEN GOSUB 740 
730 GOTO 580 

740 POKE V+21 , 120:C=255:G=G+1 17 
750 PRINTZ$?G 
760 RETURN 


770 

RE H 

INSETTO 


780 

DATA 

0, 

128, 

0, 2, 160, 0, 2, 

4 

180 

, 0 



790 

DATA 

a. 

160, 

16, 32, 180, 64, 


6 , 

161 , 

5 


300 

DATA 

6, 

161 , 

16, 133, 135, £5 


2, 51 , 247, 1 19 
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810 DATA 15, £47 , 113, 51, 247, 1 
13, 133, 135, 252 

820 DATA 6, 161, 18, B, IBI, 5, 8 
2, 160, 64 

830 DATA 2, 160, 16, 2, 160, 0, 2 
, 160, 0 

840 DATA 0, 123, 0, 0, 0, 0, 0, 0 

, 0,0 

850 REM TESTA DJ. RANA 

S60 DATA 0, 0, 0, 0, 3, 192, 252, 
15, 240 

870 DATA 255, 207, 252, 255, 255, 
255, 255, 255, 255 

380 DATA 255, 255, 255, 255, 250, 

181, 255, 234, 191 

330 DATA 255, 234, 255, 255, £55, 

252, 255, £55, 240 

900 DATA 87, 255, 132, 255, £55, 
0, 255, 240, 0 

310 DATA 223, 0, 0, £52, 0, 0, 25 

2 , 0 , 0 

320 DATA 255, 0, 0, 255, 0, 0, 63 

, 0 , 0,0 

830 REM CODA DI RANA 

340 DATA 0, 0, 0, 0, 0, 0, 0, 0, 
15 

950 DATA 0, 0, 255, 0, 3, 255, 0, 
63 , 255 

360 DATA 0, 255, 255, 15, 255, £5 
5, 15, 255, 255 

370 DATA 63 , 255, £55, 63, 35, 25 
5, 63, 247, 255 



980 DATA 63, 253, 127, 7, 255, 22 
1, 61, £55, £21 

990 DATA 63, 255, 221, 61, 95, 22 

1, 63, 245, 30 

1000 DATA 15, £55, 252, 3, 255, 25 

2, 0, 15, 252 ,0 

1010 REM TESTA DI RANA SALTANTE 
1020 DATA 0, 0, 0, 0, 3, 192, 0, 1 
S, 240 

1030 DATA 15, 207, 252, 255, 255, 
£55, 255, 255, £55 
1040 DATA 255, £55, 171, 255, 254, 

175, 255, 250, 191 

1050 DATA 255, £55, £55, 255, 127, 

252, 255, 113, 240 

1060 DATA 255, 125, £40, 255, 127, 

15, £55, 124, 0 

1070 DATA £55, £52, 0, £52, 252, 0 
, £52, £5£, 0 

1080 DATA 240, 255, 192, 132, 63, 
£40, 132, 63, 240,0 
1090 REM CODA DI RANA SALTANTE 
1100 DATA 0, 0, 0, 0, 0, 0, 0, 0, 

0 

1110 DATA 0, 0, 0, 0, 0, 0, 0, 0, 
15 

1120 DATA 0, 0, 63, 0, 0, 255, 0, 

3, 255 

1130 DATA 0, 3, 255, 0, 15, 255, 0 
, 63, 255 

1140 DATA 0, 63, 255, 0, 63, £55, 
0, 255, £55 

1150 DATA 0, £55, £55, 3, 255, 255 
, 3, £55, 255 

1160 DATA 3, 247, £55, 3, £53, £55 
, 3, £55, 127,0 

1170 REM ZAMPE DI RANA SALTANTE 
1130 DATA 0, 255, 220, 0, 255, 220 
, 0, 63, 252 

1190 DATA 0, 63, £52, 0, 15, 255, 
0, 15, £55 

1200 DATA 0, 3, £55, 0, 3, £55, 0, 
15, £52 

1210 DATA 0, 63, £40, 0, £55, 192, 
3, £55, 0 

i££0 DATA 3, £55, 0, 15, £52, 0, 1 
5, £40, 0 

1230 DATA 15, £52, 0, 15, £55, 0, 
0, 255, 192 

1240 DATA 0, 63, £40, 0, 3, 240, 0 
, 0, 240,0 
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ramenti 



Ecco come 
riconoscere un 
vero programma 
Leoni informatica 





> 






G» f ^e òoP 1 ^ cVl e ^ 


9 *S^ 9 


Quando per II tuo 
home-computer II negoziante 
tl offre un programma a basso costo, 
fidane Nella quasi totalità dei casi sì tratta di una 
copia duplicata, che per di più può non girare bene. Le 
conseguenze, specialmente se si tratta della tua contabilità, sono 
facilmente immaginabili- Leoni Informatica, Azienda leader, fa programmi 
da sempre, e da sempre è sinonimo di altissima qualità. Riconoscere questi 
programmi è facile. La classica confezione bianca e blu è accuratamente si- 
gillata. All’interno, allegate al floppy disk, vi sono le istruzioni in italiano e. cosa 
importantissima, la cartolina di garanzia. Inoltre Leoni Informatica è stata la 
prima in Italia ad offrire la garanzia a vita. E assistenza ed iE continuo aggiorna- 
mento dei suoi programmi Al tuo negoziante chiedi quindi la qualità, l'assisten- 
za e ['aggiornamento; chiedi i programmi Leoni Informatica. 

Richiedi a Leoni Informatica ['elenco guida ai suoi programmi. 


tv 

«Ae ^ v 











P e, ' e ~ 

P e \ P rtv& _rilO c r£° 


,o^®r# w> j 0 g 


$**&!**•* 

'J.V 1 '" 



Leoni informatica non ti abbandona mai 



Leoni informatica S r l. ■ Sviluppo Software - Vendila Hardware 
Via Valsolda, 21 - 20143 Milano Tel. 02-8467378-8465072 


Potete trovare i nostri programmi in tutta Italia nei punti vendita Buffetti 
e dai rivenditori autorizzati che espongono il nostro marchio. 


B£S Milano 


GIOCHI 

COMMODORE 64, 16, PLUS 4 
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Q uesto gioco dì carte che noi abbiamo 
impropriamente chiamato Poker, ne ài* 
guitte in realta tutte te redole. 

Lo scopo principale, come e logico, sa- 
rà quello di perdere minor soldi e guada- 
gnarne molli* La prima azione vede pro- 
prio il discorso venale sotto forma di pun- 
tata. 0 programma automaticamente ti 
fornirà sullo schermo le possibili vincite 
rn conformità dei risultati ottenuti. 

Buone: coppie» doppie coppie, tris, 
full, poker, scala, scala reale* 

er chi fosse possessore di un Commo- 
dore 16 sarà necessario apportare le se- 
guenti modifiche: 

• elimiare la linea VNM); 

# la riga 1600 deve essere cosi modifica- 
ta: PI =3072:P2=4tì. 

\ *• • *' -V ■’v ,r * V 'zj* - iv V- 


100 REM ************************* 
150 REM * C0I V FUTER UTILIZZABILI * 


200 REM * * 
250 REM * COMMODORE 64 : S I * 

300 REM * * 
350 REM * COMMODORE £0 : NO * 
400 REM * * 
450 REM * COMMODORE 16 : 31 * 
500 REM * ■ * 
550 REM * COM4. PLUS 4 : SI * 
600 REM # * 


850 REM ******** *********** ****** 
900 POKE 53280,6iPOKE 53281.6 
1000 PR I NT " [ CLEAR ] [ 8 DCiUINH 12 RIGHT 
KRVSJG10C0 DEL POKER "SPRINT! 
PRINT 

1100 PRINT" [4 DOWN! IRVS 

IST0 ' MISCHIANDO! IRVOFF 3 12 DO 
UNI* 

1200 OIM Gl (5) ,F7<35) ,F3C35) ,F3(35> 

, 0 ( 10 ) 

1300 POR 1 = 1 TO 10 s READ 0(I>iNEXTI: 
DATA 200,50,30,20,10,7,5,2,1,- 
1 

1400 DIM C5(6) ,C6<5) ,C7(5) ,C8(7>:FS 

ji » » 

1500 M$= “ " 

1600 P 1 = 1 024 s P2 =40 
1700 W=0 


1808 G03UB 21500 
1300 PRINT" ICLEARi " ? 


2000 PRINT’ [RVS1CARTE PU 

NTEGGIG VINCITA 11 


a 100 

FRI NT “SCALA REALE; 

1 

PRINT "SCALA COLORE 

£00 

A 

£200 

: 50 

A 


1 " tPR E NT "POKER 

É 

■ 

30 


A 1" 



£300 

PRINTT'FULL : 

£0 

A 


i PRINT "COLORE : 


10 


A 1" 



£400 

PRINT "SCALA : 

7 

A 


1 w 5PRINT h TRI3 : 


5 


A 1 ■ 



£500 

FRI NT 11 DOPPI A COPPIA 

1 * 

PRINT'COPPIA : 

1 

GOSUB 19800 

; £ 

A 

£600 

i 

A 

£700 



£800 

PRINT"SCQLM£SSA ?: 

DA L. 1 

A 


.10000 ="; !Z9=6! GOSUB 30100:0 


=VAL < Z* ) 

2900 ON INT ( (D +3933 )/l@000 ) + 1G0TQ 2 
2700,3100,22300 
3000 GOTO 22900 

3100 PR I NT " I HOhE 1 * i FOR S=i TO 3:Z-S= 
STR*(0(S)*D) !PRINTSPC(25)LEFT* 
(FS$, 12-LENsZ* > > " L " 2 $ 

3200 NEXTS 

3300 1F LEH(C3t)<12 THEN GOSUB £520 
0 

3400 FOR V=1 TO 5! GOSUB 24600! GOSUB 
8700 i NEXTY 

3500 GOSUB 25400 :SX=S: GOSUB 17300 
3600 GET G$:IF G$< > " " THEN 3600 
3700 PRINT" IHOMEI I 12 DQWNJPER SCART 
ARE USA I NUMERI , 1,2, 3, 4, 5 = = 

3800 PRINT" CUP1P0I CRVS 1RETURNIRVÙF 
F 1 = <S I CORREGGE CON IL TASTO C 
. > 

3900 FOR 1=1 TO 5 
4000 G 1 < I > = 1 
4100 NEXTI 
4200 P»P 1 +24*P2 
4300 GOSUB 23400 
4400 GET G* 

4500 IF Q$= " "GOTO 4400 
4600 G=ASC(Q$) 

4700 1F G= 13G0T0 5360 
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4800 IF Q$= "C "GOTO 3300 
4900 IF Q$<M"GOTO 4460 

5000 IF <W>"5*G0T0 4400 
5100 

5£00 GKY)=0- 

5300 P~ P1+24*P£+8*CY-I > 

5400 MS-*- VIA = H 
5500 L-LEN<raO 
5600 GOSUB £3500 
5700 GOTO 4400 
5800 P=P1+1 1*P£: GOSUB £3400 
5900 P =P I + i£*P£ : GOSUB £3400 
6000 P =P 1 + 1 3*P£ ; GOSUB £3400 5P=6P 1+84 
*P£: GOSUB £3400 
6100 FOR Y s ! TO 5 
6£00 IF 6 H Y) =0 THEN GOSUB 16800 
6300 NEXTY 
6400 GOSUB £5400 
6500 IF SX=S6QT0 6800 
6600 GOSUB 17300 
G?00 3X=S 
6800 FOR Y=1 TO 5 
6800 IF 6 1 < Y > - 1GOTO 7£00 
7000 GOSUB £4600 
7100 GOSUB 8700 
7 £00 NEXTY 
7300 GOSUB £5400 
7400 IF SX=SG0TQ 7800 
7500 GOSUB 17900 
7600 SX=S 
7700 GOSUB 17300 
7800 REM 

7300 W=LI+D*Q< 10-S) 11 VINCITA" : IF 

0 < 10-8X0 THEN MS= "PERO ITA n 
3000 DI QUESTA M ANO L . 31 + S TR 

S < ABS < 0 +0 ( 1 0 -S ) > > : P =P 1 + 1 1 *P£ s G 
OSUB £3400 

8100 M$= *V INCITA" i ÌF W<0 THEN M$=“P 
ERO ITA 

8E00 P-P l + 1 £ *P£ B MS 55 “TOTALE W +M$+ W - 
L, 11 +STRS<ABS<W>>= GOSUB £3400 
8300 Mi - “PER CONTINUARE BATTI IL Tfì 
STO RETURN. . * " * P~P 1 + 13*P£ : GOSU 
B £3400 

S400 GET G$:IF THEN 8400 

3500 IF ASC <6*X>13 THEN S400 

8600 GOTO 1900 

8700 H=C£-7 

9800 IF H< 4 THEN H = 1 

8300 POR 1=1 TO 7 

3000 C8 < I > =H 


9100 NEXTI 

9£00 ON C2GOTO 3300,3600,9500,10600 
, 10200,10500, 10400,3300, 10100, 
3800,10700,10700,10700 
9300 C8 ( 4 ) =2 
3400 GOTO 10700 
0500 CB (4 > =£ 

3606 C3C£)=£SC8<6)=£ 

0700 GOTO 10700 
9800 CS<£)=£iC8<6)=£ 

0300 09 (3) =3 ICS <5 ) =3 
10000 GOTO 10600 
10100 C8C3>=3sC8<5)=3 
10£00 C8 <4 >=£ 

10300 GOTO 10600 
10400 C8 <3 ) =£ 

10500 C8 (4 > =3 

10600 CS < J > =3 ' C8 <7 > =3 

10700 A=P 1 + 15+P2+8* < Y- 1 > 

10800 C3= CASCOLE*) Arci 63M1E8 
10300 POKE A ,C3 
1 1000 A 1 = 160 

11100 IF C£= 10 THEN A 1 -ASC ( "0" ) + 1 £8 

11 £00 E =6 

11300 GOSUB 13£00 

11400 C4=ASC <C 1$ > 

11500 F7 (52 *C4 s F7 < 3 1 > =C4 
11600 F8C 1 >=C4 jF 8(35>=C4 
11700 F3 < 1 ) =*C4 i F9 < 35 ) *C4 
1 1800 FOR 1 = 1 TO 7 
11900 A=A+40 
1£000 POKE A, 160 

12100 ON C3<I>G0SUB 13700,14100,1470 
0,15300,15800,16300 
i££00 POKE A +6, 160 
12300 NEXTI 
1 £400 A=A+39 
12500 IF C£ = 10 THEN E -5 
18600 GOSUB 13800 
12700 POKE A+E+ 1 , C3 

12800 IF C£ = 1 0 THEN POKE A +7 , ASC < *0 11 
* ) + 1 £3 

1 £900 C6 < Y) =C 1 
13000 C7 C Y> =C£ 

13100 RETURN 
13200 FOR 1=1 TO E 
13300 POKE A+ I i 
13400 Al =160 
13500 NEXTI 
13609 RETURN 
13700 FOR X= 1 TO 5 


70 - Commodore Computer Club 



GIOCHI 


13800 PDKE A+X,160 
13900 NEXTX 
14000 RETURN 
14300 POKE 6+1,160 
14£00 POKE 6+2,16© 

14300 POKE 6+3, C4 
1 4400 -PQKE 6 + 4,160 
14500 POKE 6+5,160 
14600 RETURN 
14700 POKE 6+1 ,C4 
14S00 POKE 6+2,160 
14900 POKE 6+3,160 
15000 POKE 6+4,180 
15100 POKE 6+5, C4 
15200 RETURN 
15300 POR X = 1 TO 5 
15400 X 1 =5* ( I - 1 ) +X 
15500 POKE A+X,F7<X1> 

15800 NEXTX 
15700 RETURN 
15800 POR X=1 TO 5 
15900 Xl=5*U-l>+X 
16000 POKE A+X,F8(X1) 

18100 NEXTX 
1G200 RETURN 
1B300 POR X- 1 TO 5 
16400 X 1 =5* < 1-1 >+X 
16500 POKE 6+X,F3<Xl) 

16600 NEXTX 
16700 RETURN 
1 8800 REM AZZERA L6 SITUAZIONE DI 0 
IOCO 

16900 A=Pi+15*F2+8*< r-i )-l 
17000 FOR 3 ” 1 TO 3 
17100 FOR X= 1 TO 7 
17200 PDKE A+X ,3£ 

17300 NEXTX 
17400 6-6+40 
17500- NEXTI 
17600 C8 < Y > = 15+£*Y 
i 7700 C7<r>=15+£*Y 
17300 RETURN 
J 7900 REM 

3 9000 IF SX=0GOTQ 18900 
13100 P=P1+P2*< 10-SX) 

18200 X=0 

18300 FOR 1 — 0 TO 3? 

18400 N=PEEK <P+1? 

13500 IF <N=3£) ANO <X=0>GQTG 18300 
18600 X = i 

13700 POKE P + I , ( N+ 1 £3 > AND £55 


18S00 NEXT I 
13300 RETURN 
13000 LU=20*D 
13100 RETURN 
19200 W1 -30*D 
19300 RETURN 
13400 UJl =50*0 
19500 RETURN 
19600 LJ1 =£00*0 
19700 RETURN 
19300 PRINT 

19900 IF W=0 THEN PRINT 
£0000 IF U<0 THEN PRINT" IL TOTALE DE 
LL6 PERDITA E* L . " ; -W 
£0100 IF W>0 THEN PRINT" IL TOTALE' DE 
LLA VINCITA E 1 L, ";N 
£0200 RETURN 

20300 F$= H +- ) G*5T G 6 H H 
Y64H r 'l " 

£0400 RETURN 

20500 >#T FG 5 ì < 

s h > y $r 11 

20600 RETURN 

20700 «- )' 1 &BF ■ • DJ 

& % r 5 " 

20300 RETURN 

20300 F7CX1 > =F 1 

21000 RETURN 

£1100 F8 (X 1 )=Fi 

£1200 RETURN 

21300 F9 ( X 1 >*F 1 

£1400 RETURN 

21500 FOR K-Ì TO 3 

£1600 FOR XI =1 TO 35 

21700 GN XGGSUB 20300,20500,20700 

£1800 F1=ASC<M1D*<F$,X1 , 1 >> 

£3300 IF FK96G0T0 ££100 

££000 IF Fl<13£ THEN Ft=Fl+64 

22100 IF FI <64 THEN Fl=Fl+64 

£££00 F1=<F1+1£8> AND £55 

££300 ON XGQSUB £0300 ,£ 1 100 ,£ 1300 

££400 NEXTX 1 

££500 NEXTX 

22600 RETURN 

££700 F R I NT * P R I NT " SCORIE S £ A NON VALI 
DA * 

22800 GOTO £3000 

22900 PRINT: PR I NT "SCOMMESSA TROPPO A 
LTA ^MASSIMO L, 10-000 
£3000 X=100 
£3100 X=X-1 
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23200 IF X >0GOTO 23100 
23300 GOTO 1300 
23400 L=40 

23500 A=P-1 :L1=LENCM*) :FOR 1=1 TO LI 
:Ml*=MIO*CM*, I , 1 > ìPQKE A+1,ASC 
(MI*) AND 63 : NEXT I 
23600' M1*=MID*CM*, 1,1) 

23700 A=A+L1 

23300 L=L-U 

23300 IF L< =0GQTQ 24300 

24000 FOR 1=1 TO L 

24100 POKE A+1,32 

24200 NEXTI 

24300 M*=" " 

24400 RETURN 
24500 K 

24600 C=INT<LEN<C9*)*RNDtTI ) )+l ! IF C 
>LENCC9*) THEN C=LEN(C9*) 

24700 C=1NTCLEN<C3*)*RNDCTI ) >+l : IF C 
>LENCC3* ) THEN C=LENCC3*) ' 
24800 C0=ASC<MID*<C3*,C, 1 >) :C1=INTC 
C0-1 )/13)+l SC2=C0-13*(C1-1 ) 
24900 CI*=M IO* <■**♦** ,C1, 1) :C2*=MI0* 
C " A23456739 1 JQK 11 ,C2, 1 ) 

25000 T*="* :IF C>1 THEN T*=LEFT*CC9* 
,C-I ) 

25100 C3*=T*+MID*CC9*,C+1 ) :RETURN 
25200 PR INT " C HOME ] t 1 0 DONNI LRVS ILE C 
ARTE SONO STATE MESCOLATE ! " 
25300 C9*= * * : FOR 2Z = 1 TO 5£:C3*=C3*+ 
CHR*(22 >:ICXTZ2 : RETURN 
25400 S=0 
25500 S2=0 
25600 FOR 1=1 TO 6 
25700 C5 < I )= 100 
25800 NEXTI 
25900 FOR 1=1 TO 5 
26000 X=5 

26100 IF C7 ( I ) >C5 (X )GOTO 2650B 
26200 C5 CX + 1 )=C5 (X ) 

26300 X=X-1 

26400 IF X >0GOTO 26100 
26500 C5CX+1 )=C7C I ) 

26600 NEXTI 

26700 IF C5 < I > = I THEN C5C6)=14 

26300 S 1 =0 

26900 FOR 1=1 TO 4 

27000 IF D6( 1 )=C6< 1 + 1 ) THEN S 1 =S 1 + 1 
27100 NEXTI 

27200 IF SI =4 THEN 5=5 

27300 S 1=0: FOR 1 = 1 TO 4:IF CSC I ) +5-1 


=C5C5) THEN S1=S1+1 
27400 NEXTI 

27500 IF SI =4 THEN S=S+3:1F S=3 THEN 
S=4 

27600 IF SI =4 THEN 28000 
27700 S 1 =0 :FOR 1=2 TO 5: IF C5CI)+6-I 
=C5 <6 ) THEN S1«S1 + I 
27800 NEXTI 

27900 IF S I =4 THEN S=3+3:IF S=3 THEN 
S=4 

28000 IF <S=3) AND <C5C5)=13) THEN S 
=S + I 
23100 S1=0 
28200 FOR 1=1 TO 4 

28300 IF CSC I )=C5< 1 + 1 ) THEN 31=31 + 1 
28400 IF C5( I )=C5C 1+2) THENS1=S1+1 
28500 NEXTI 

28600 IF SI >3 THEN SI =31+2 
23700 IF S1>S THEN S=S1 
28800 RETURN 
28300 FOR 1=1 TO 5 

23000 INPUT "INTRODUCI IL NUMERO DEL 
LA CARTA ”;C6< I ),C7C I ) 

29100 NEXTI 
29200 GOSUB 25400 
29300 PRINT 
29400 PRINT"S=*;S 
23500 PRINT 

29600 PR INT"C5 " , "C6 “ , "C7 

29700 FOR 1=1 TO 5 

23300 PR INTC5 CI) ,C6 <I>,C7CI) 

29900 NEXTI 5PRINTC5C6) 

30000 GOTO 28300 

30100 Z*=*":Z0*=" *:21*=* 

30200 PR1NT20** ILEFTI *1 :FOR 22=1 TO 
50 : GET 22*: IF 22*0" " THEN 22 = 
50:NEXT:GOTQ 30400 

30300 NEXT:2£*=2 l*iZl*=Z0*:20*=22*!G 
OTO 30200 

30400 22 =ASC C22*) AND 127: IF 22=29 0 
R ZZ = 17 OR 22 = 19 OR 22=34 OR Z 
Z =69 THEN 30200 
30500 IF 22 020 THEN 30800 
30600 IF LENCZ *) >0 THEN PRINTZ2*OIF 
'LENCZ*) > 1 THEN Z*=LEFT*C2*,LE 
NCZ*> - 1 ) : GOTO 30200 
30700 GOTO 30100 

30800 IF 2ZOÌ3 THEN PR INT22*; : 2*=Z * 
+22*: IF LENCZ*) <29 THEN 30200 
30900 PRINT* *: RETURN 
31000 END :REM FINE DEL GIOCO 
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GIOCHI 

COMMODORE 64 


Il Gioco 
del Ghiaccio 


S iete stati assunti presso ima ditta prò- 
duttnce di ghiaccio e il vostra compito è 
di trasportare i blocchi da! punto di scari- 
co fino al magazzino refrigerato, Ma, at- 
tenzione; se !a giornata è molto calda il 
ghiaccio si scioglie velocemente e dovete 
essere abili e veloci. Vi occorre anche 
molta calma perchè rischiate di rompere 
il cubo. Le ganasce con cui trasportate il 
ghiaccio, inoltre, si usurano velocemente 
e la presa diminuisce lasciando scivolare 
iì ghiaccio. 

All'inizio viene chiesta la temperatura 
del locale. Se questa è zcto o minore di 
zero, il ghiaccio non si scioglie e cosi 
finisce la lotta contro il tempo e i! diverti- 
mento del gioco; la temperatura comi- 
gliata per iniziare è di 20 gradi centigradi. 
Quando iniziate a giocare ie ganasce si 
trovano in alto a sinistra e sono indicati 
(a destra) il numero progressivo del bloc- 
co di ghiaccio, lo stato d'usura delle ga- 
nasce e il punteggio. 

Tempestivamente dovete muovere le 
ganasce con i tasti W (alto), X (basso), A 
(sinistra), D (destra) per raggiungere il 
blocco posto in basso allo schermo che 
dovete prendere con i tasti < (allarga) e 
> (stringe). Attenzione a non urtarlo da 
una sola parte e a non stringerlo troppo: 
lo rompereste. 

Q uando è avvenuta la presa, il ghiae- 



Trasportare ghiaccio 
può essere impresa 
difficile . . . 


ciò diventa dì colore più scuro e, per 
immagazzinarlo, occorre premere la bar- 
ra dello spazio. Se il ghiaccio non è stato 
ancora preso dalle ganasce, verrà segna* 
lato l’errore. Più tempo impiegate per la 
presa, più il ghiacciosi scioglie. Dato che 
la presa delle ganasce t piuttosto preca* 
ria, durante il trasporto il ghiaccio potrà 
cadere rompendosi. Se vi fermate, si in- 
terrompe il (lusso d'aria freddo creato 
dal movimento e il ghiaccio si scioglie 
molto più rapidamente. L’attrito delle 
ganasce sul ghiaccio diminuisce man ma- 
no si procede nel giocò a causa dell’usu- 
ra. Il punteggio viene dato in base alla 
quantità di ghiaccio che riuscirete a 
salvare, 

Il listato risulta volutamente " l pove- 
ro ’. Gli sprite si riducono a semplici ret- 
tangoli e la caccia al cubo, a lungo anda- 
re, non è più emozionante come 
all’inizio. 

Compito del lettore potrebbe essere 
pertanto quello di “abbellire ' jl listato e 
di render difficile il gioco stesso facendo, 
ad esempio, apparire casualmente alcuni 
caratteri sullo schermo che gli sprite- 
ganasce devono evitare nel raggiungere 
robiettivo. Attenti a.... non scaldarvi 
troppo!! 


F'u3}toi SontulD 
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DUPLICATORE PROGRAMMI 



Utile accessorio per lare copie tramile un re girato re Commo- 
dore e un registratore normale di nastra protetti o con carica- 
mento turba 


Art. CD 1Q2 


L, 30 


23 


KIT ALLINEAMENTO TESTINE 



SirunerHo indisjKnsabile per la perfetta 'egala£i{?rte d$ii AZI- 
MUT rei regnatóri comm-oddie o compatibili 


Art CD 1 05 


L, 47 000 


BATTERIA TAMPONE ANTI BLAK-OUT 



Conserte il martstTmenio dei dal :rr memoria no. computer in 
assenza di corrente elettr ca ce- circa 30 mintiti (da aftjbiriire a 
(ilim^nratore Art. CD 106 ) Fornitole amene sanza batter» 
Art CO Ti 71 


Art- CD 107 


L. es-ooo 


ACCESSORI 
PER COMPUTER 
COMMODORE 

COPIATORE PROGRAMMI 





In dispensa olù accorsone por lare una copia ira.miie due reoi- 
ssrstori commede re. c?j nastri peatetti o cor carica mento turbo 


Art- CD 103 


L 30 



OSR S.R.L. 

ELETTRONICA 

Via Don Pasquino Sorghi^ 13 
42017 NOVELLARA (Reggio E.} 


Conleniiore batteria lampone 
arili BLAK-OUT 

Ari CD 117 

L. 25-000 

interfaccia regisiraiore 

Ari COI Dì 

L 30-000 

Gommu latore Tv 



anienna computer 

Ari. CD 103 

L. -9.&M 

Tasto RESET per Vie »eCW 

Ari CD 103 

L. 5-500 

Cavo per TV con ingresso 
monito? 

An CD I10 

L. 19.000 

Coprilastieràin plesiglas 

Art. CD 750 

L. 1 3.000 

Coprliastiera in stoffa 

Alt. CD 755 

L. TOSTO 

Borsa oer trasporto C 64 
èREGISTR 

Art. CD 760 

L. 29.000 

Vaschetta per 90 floppy D. 
cor chiave 

Art. CD 730 

L. 45.000 

Vaschetta per 40 floppy D 
con chiave 

Art CD 770 

L- 35.000 

Tavola gralica SUPER SKETCH 
per C 64 

Art CO 790 

L. £40.000 

Coni. ì 0 dischetti ODP ; F 2D 

Art CD 700 

L. 45.000 

Goni 10 dischetti KEY-OATA 
; F2D 

Art CD 710 

L. 10-000 

CortL 10 deschetti COLORATI 
iFlD 

Art. CD 730 

L 45.000 

Con- 1 10 dischetti 

hob&v -Floppy i f id 

Art. CD 720 

L. 20.500 


TUTTI I PREZZI SONO COMPRENSIVI DI IVA 
NON SI ACCETTANO ORDINI INFERIORI A L 30.000 
CONTRIBUTO RSSO SPESE DI SPEDIZIONE L 5-0® 




- -i - 


INTERFACCIA RICEZIONE RADIO 



Intfispensabrfe per registrare su registratore comm c<Eore i pro- 
grammi special» pe' computer trasmessi dalle emiiiénii radio 


Art. CD 104 


L. 30 


ALIMENTATORE 



Unita di alimenta zionfl ptr C 64 e VIC £0 completo di nlerruttcre 
cor nitro di rete è soppressore di pjechscortfo i disiato elettrici 
Pred*SpOSlc P<?r baitene tampone arti BLAK-OUT l Art C0 107) 


Art. CO i 


L. fl? 


BUS A QUATTRO SLOT PER VIC 20 



Amplia la posslktaatfeiia pena di espansione imo a 4 ingressa 
selezionatali d= cui uno ndirizzabile nel: area d memoria ROM 
completo (J: tasio RESFT 


Art CD'l 




L- 55.000 





i --r — 


BUONO DI ORDINAZIONE 

nome ■ cognowc 


VOGLIATE INVIARMI IN CONTRASSEGNO 


INDIRIZZO 

1 



1 

| N. 

1 

CAP 

j 

I 

CITTA 

1 

! 

PROVINCIA 

1 . 

1 


N. 

Art, 

L. 

NL 

Art. 

L, 

N, 

Art 

L 

SPESE SPEDIZIONE 

L 5.000 

PAGHERÒ AL POSTI NO 

b . 
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10 

£0 

30 

40 

41 
5 B 

52 

53 

54 
100 

1 10 

120 

130 

140 

150 

180 

170 

180 

190 

200 

210 

£20 

230 


£40 

£50 

260 

270 

280 


REM A COGL 140 RK 

REM MI NI GAME 

REM PER COMMODORE 64 

REM BY FABIO SORGBTD 

■ 

l 

PRINT CHR*< 14?) "SPOSTAMENTI : Ul! 
-X-Pi-D" 

PR INI "APRE CHIUDE: < - >* 

PR I NT "PREMI UN TASTO": POKE 198 
,0 

GEI A$: IF A$= " " THEN 54 
PRINT CHRSC 147) "TEMPERATURA? 2 
0 w 

PRINT TABU 1 )CHR$< 145>J : INPUT 
TM: IF TM<0 THEN TM=0 
PRINTCHR$( 147) 

POKE 53248 +2 1 ,73 REM ABILITA 
GLI SPRITES 

POKE £040 , 13 s REM SELEZIONA £ 

PR ITE 0 AL BLOCCO 13 

POKE £041 , 135 REM SELEZIONA S 

PRUE 1 AL BLOCCO 13 

POKE £042 , 14 s REM SELEZIONA S 

FRI TE 2 AL BLOCCO 14 

POKE 53248+39,0: REM COLORA S 

PRITE 0 

POKE 53248+40/0: REM COLORA S 
PRUE 1 

POKE 53243+41 ,3: REM COLORA S 
PRUE 2 

POKE 53243+23,3: REM ESPANDE V 
SPRITE £ 

SC=30sBL=l :DI=,0025*TM 

A-50 : X=A : Y=0 : D = 1 : R=S96 : 0=0 : Q = 0 

POR K=832 TO 832+ 123: POKE K,25 

5 : NEXT : REM RIEMPIE I BLOCCH I 

13 & 14 DEGLI SPRITES 

POKE 53253, £29 SPORE 53252, INT< 

FRINÌ CHR$ (147) TAB <18 > “PUNTI 
; « ; FU 

FRINÌ TABU8) “ATTRITO GANASCE : 
M ; SC JRRINT 7 AB < 18 ) "BLOCCO : " ; BL 
POKE 53248, X-A+24 : POKE 53243, Y 
+50 

POKE 53250, X+A+24SFGKE 5325 1,Y 
+50 


290 : 

300 REM ** MUOVE GANASCE *¥ 

310 : 

320 G0SU8 480:C=PEEKC 197) : IF C=64 


THEN 320 

330 IF C -60 THEN 500 
340 IF C* 10 Arci X >D - I +A THEN X 

=X-D s GOTO 430 

350 IF C = 18 Ar>C XC230-A-O THEN 

X=X+D:GQTQ 430 

360 ÌF C *9 ARO Y >D - ì THEN Y=Y 

-□ S GOTO 430 

370 IF C =23 Ara r’<153-D THEN r 

=Y+D : GOTO 430 
330 s 

330 REM ** APRE/CHIUDE GANASCE ** 

400 ; 

410 IF C = 44 ANO A<49+0 Aid X> 

A ARO A+X+24 <255 THEN A=A+ 
Di GOTO 430 

420 IF C=47 AND A>D+11 THEN A= 

A-D 

430 Q=PEEK< 53248 +30) AKD 7iQ=-<G+< 

Q< >0) >*<Q< >0) 

440 IF 0=0 THEN POKE 53248+41,3 
450 IF G<0 AND Q=7 THEN POKE 53248 
+41,14 

460 IF 0 >-3 THEN 270 


Lei 


\ i 


di questo 
fascicolo 


Ecco ■*' Astato & casa £bcse sr prrm 
putirti) i catcci&Efv i tf— mini i wn n 

Zu&l i m o to* atfCftì» (Z?. Zt ZA 
ec ej « parte totern&t dO- 

fa/ifle 'a seconda guerra mcvidtafe da 
ertati* tMtsin&MVMWctessafmai 
storiato 24 m 


IVA 
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470 POKE 53269 ,0:RRINT CHR*<147)"H 
AI ROTTO IL GHIACCIO’ :FOR T=0 
TO 993 SNEXTJ GOTO 720 
430 R=R+DI SPOKE R,0:IF R<956 THEN 
RETURN 

490 POKE 53239 , 0 : PR I NT 11 t CLEAR I S I E 
* SCIOLTO COMPLETAMENTE !!" :POR 
■ T=0 TO 993 SFCXT: GOTO 720 
500 IF 007 THEN PRINT " [CLEARIPREN 
DI IL GHIACCIO ! ! " s FOR T=0 TO 
399 SNEXT SPRINT" t OLEARI" SCOTO £ 
50 

510 CK=0 s FOR K=Y TO 0 STEP -1 
520 POKE 53249, PEEK <53249)-! 

530 POKE 53251 , PEEK <53251 )-l 
540 POKE 53253 , PEEK <53253)- 1 
550 GOSUB 670 
560 NEXTK 

570 FOR K=X-A TO 0 STEP -1 
580 POKE 53248, PEEK <53248)-! 

590 POKE 53250, PEEK <53250 )- 1 
600 POKE 53252 , PEEK <53252 )- 1 


610 GOSUB 670 

620 NEXTK 

630 FOR K=PE£K <53253) TO 0 STEP -1 
sPOKE 53253, KsNEXT 

640 BL-BL+ 1 : IF BL/3 = I NT < BL/3 ) THEN 
SC=SC-5 

650 PU=PU+ 10* INT <95S-R ) 

660 GOTO 220 

670 CK=CK+ 1 s IF CK<SC THEN RETURN 

680 CK=0 SPOKE 53253, PEEKt 53253)+! 1 
Q = < <PEEK <53248+30 ) AND 7)=7)S1 
F Q THEN RETURN 

690 FOR K=PEEK <53253) TO 255 sPOKE 
53253, KSNEXT 

700 POKE 53269,0 

710 PRINT CHR*<147)"E* CADUTO E SI 
E* SBRICIOLATO H’sFOR K=0 TO 
999 : NEXT 

720 PRINT CHR*< 147) ‘PUNTI "fPUsPRIN 
T CHR$< 17)"PREMI UN TASTO PER 
GIOCARE* 

730 POKE 193,0 SUA IT 198,1 s RUN 

H. 


dalTINGHILTERRA 


games 

ASTERTRONIC 


j. - - „ -*■ 


ELETTRIZZANTI 
AVVINCENTI 
[OZIONANTI 




CBM6A 


C6M64 


TUFFATI NEL FANTASTICO 
MON DO MASTERTRONIC ! 
per vivere nuove emozionanti 
avventure piene di suspence e 
frenetiche animazioni. 


5PEC+HUM 

MSX 


QUALITÀ'* PREZZO solo £7.900 è la grande proposta 

MASTERTRONIC per conquistare tanti amici. ' , 

* 

«v - p ■ . * . * 

Master tropic s a s- Via Aguggiari. 62 A Silfio Varese - f 0332 238896 
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SISTEMA OPERATIVO 


IL Kernal 


r 

ome preannunciato la volta scorsa , 
questo mese esaminiamo le routine SA- 
VE, LO AD e accessorie. 

Prima di cominciare, però è bene fissa- 
re alcuni concetti basilari. 

Il Basic di qualsiasi computer dispone 
dei comandi SAVE e LO AD che permet- 
tono, rispettivamente, di salvare su me- 
moria esterna e caricare da memoria 
esterna qualsiasi tipo di programma. 

Con specifico riferimento ai calcolatori 
Commodore, la sintassi dei due comandi 
è molto simile e varia a seconda deile si- 
tuazioni che possono verificarsi. 

Salvataggio & caricamento 

Per prima cosa, se si desidera che il 
programma venga registrato con un no- 
me identificatore (vengono accettati fino 
a 16 caratteri), bisogna aggiungere, subi- 
to dopo LI comando, tale nome racchiuso 
tra doppi apici (può anche essere usata 
una variabile stringa che lo contenga); 
questa procedura è obbligatoria per me- 
morizzazioni su disco. 

Dopo, bisogna specificare con quale di- 
spositivo si intende colloquiare inserendo 
l’appropriato numero dì periferica (1 per 
registratore a cassette, e generalmente 8 
per disk drive) precedure da una virgola 
sepa rat r ice (solo per il registratore, tale 
numero può essere omesso) 

I nfìne, si può inserire un terzo parame- 
tro (un numero preceduto da virgola se- 
parati! ce noto come indirizzo seconda- 
rio) con significato diverso a seconda del 



tipo dì memoria esterna selezionata e del 
tipo di Per il SAVE su nastro, questo 
terzo elemento può assumere il valore 1 , 2 
o 3. 

Usando il numero 1 sì decide di memo- 
rizzare il programma in modo tale che, al 
momento del richiamo in memoria 
(quando si usa il LO AD), esso venga cari- 
cato esattamente a partire dalla stessa 
locazione in cui si trovava al momento del 
salvataggio (non viene effettuata la cosid- 
detta rilocazione e si rivela particolar- 
mente utile con i programmi in Linguaggio 
macchina). Col 2 si decìde di memorizza- 


re normalmente il programma con un se- 
gnalatore finale di fine nastro mentre col 
3 si hanno i due effetti precedenti combi- 
nati, cioè indirizzo di caricamento inva- 
riato e segnalatore di fine nastro. 

Per il SAVE su disco, invece, è possibi- 
le inserire solamente l'indirizzo seconda- 
rio 1 con lo stesso effetto visto prima per il 
registratore- 

Con II LOAD, sia su nastro che su di- 
sco, l'indirizzo secondario può valere sol- 
tanto I e serve per non rilocare il pro- 
gramma (che sarà caricato dalla locazio- 
ne in cui partiva originariamente) indi- 
pendentemente dall’indirizzo secondario 
usato all’atto della memorizzazione. 

Come notato, il termine ^riJocazàme” 
è stato citato molto spésso in queste prime 
righe. D’obbEigo, quindi, una spiega 
jgone. 

ormalmente, con il LOAD senza in- 
dirizzo secondario il caricamento avviene 

. 1 . 

dalla locazione 2049 in poi, e ciò va bene 
per qualsiasi programma basic. Per quel- 
li in Linguaggio macchina, invece, questo 
causa sempre dei malfunzionamenti 

Sappiamo, infatti, che per far partire 
questi ultimi bisogna dare li comando 
^SYS indirizzo”, dove indirizzo è la pri- 
ma Locazione di memoria utilizzata per la 
memorizzazione del programma in ogget- 
to (quasi sempre diversa dalla 2049). 

Ora, se noi carichiamo tale program- 
ma senza usare come indirizzo seconda- 
rio 1, esso sarà memorizzato a partire 
dalia locazione 2049, e quando daremo la 
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SYS di partenza, non essendo presente 
alcun programma all'indirizzo specifica- 
ti» dopa tale coniando avremo effetti spia- 
cevoli variabili tra iì semplice ritorno del 
cursore su schermo cancellato {come se sì 
fossero premuti c<m tempora reamente i 
tasti Rt N/STOP e RESTOREI e il totale 
blocco del sistema. Anche per mi altro 
motivo, legato ai byte di link (non ne par- 
liamo adesso) si consiglia sempre di cari- 
care ì programmi in linguaggio macchina 
con il comando: 

L0AD 1 *nome-pirg t \8.i io 
LOÀD t *itome-prg”,Ì J per il registrato- 
re), Come certamente avrete già capito, 
quando l'indirizzo secondario viene 
omesso, il caricamento e il salvataggio 
avvengono normalmente senza le possibi- 
lità viste sopra. 

Precisato questo, cominciamo a parla- 
re di due routine preparatorie rispetto a 
quelle del L0AD e del SA VE, 


La routine SETLES 

E' nota coi nome SETLFS, ha l 'indiriz- 
zo di chiamata in 65466 {$FFB A Ln esade- 
cimale ) ed ha lo scopo di predisporre un 
file logico. Più precisamente, questa mu- 
tine serve per impostare il numero logico 
del file* il numero della periferica e l'indi- 
rizzo secondarlo del comando che ha bi- 
sogno dì tali elementi (nel nostro caso del 
LO AD o del SA VE). 

Come numero logico del file si intende 
un qualsiasi numero, sedia arbitraria- 
mente* che può variare da 1 a 255 (solita- 
mente si usano numeri al di sotto di 127 In 
quanto gli altri possono avere spedali si- 
gnificati per particolari periferiche). 

Per usare questa routine* basta inseri- 
re nel L'accumulatore (o nella locazione 
78(1) il numero logico del file, nel registro 
indice s (o nella locazione 781) il numero 
della periferica, nel nel registro Y (o nella 
Locazione 782 1 r indi rizzo secondario e poi 
saltare al suo indirizzo di chiamata con un 
JSR io una SYS in Basic), 

Perciò, volendo predisporre un file con 
numero logico 2 verso Punita a dischi e 
con indirizzo secondario I, in Basic 




avremo: 

IO POKH780*2 
20 POKE78US 
30 POKE782, 1 
40 SYS65466 

mentre in linguaggio macchina: 
LDA $02 


l.DX $08 
LDY Sflt 
JSR ffba 

Mei caso in cui non si voglia inviare 
alcun indirizzo secondario, basterà inse- 
rire ne! registro V 11 valore 255 (SFF). 

La routine SETNÀM 

La seconda routine preparatoria è nota 
come SETNAM, ha rindìrizzodi chiama- 
ta m 65469 i SFFRD) ed è usata per predi- 
sporre il nome del file* Questa routine, 
perciò* permette di assegnare il nome al 
programma che vogliamo salvare o 
caricare. 

Per il suo uso, bisognerà impostare 
F accumulatore con la lunghezza del no- 
me del file* il registro Y con quello alto- 
delia locazione di memoria dove comincia 
la memorizzazione di tale nom^ (si riman- 
da alla seconda puntata dell’ Assembler 
per tutti a pagina 43 e seguenti di (-(.( 
n. 8 per eventuali chiarimenti circa fa 
dizione byte basso-byte alto), dopodiché 
saltare al suo indirizzo di chiamata, 

1 1 nome può essere memorizzato, carat- 
tere per carattere in codice ASCII, in 
qualunque zona dì memoria RAM libera 
per l'utente t logicamente diversa da quel- 
la occupata dal programma i, 

Per il linguaggio macchina e necessario 
inserire materialmente i codici ASCII dei 
caratteri del nome a partire da una loca- 
zione libera e poi il relativo valore per 
riportarlo nei registri X e Y. In Basic al 
contrario, si può usare un pìccolo trucco. 

Considerando il modo in cui vengono 
memorizzate le variabili stringa (anche in 
questo caso per eventuali chiarimenti so- 
no obbligato a rimandarvi ad un altro 
articolo a pagina 8 e seguenti di CX\G\ n. 
Ibi e tenendo presente che i byte 53 e 54 
puntano sempre all 'ultima stringa memo- 
rizzata. basterà calcolare i valori di tali 
puntatori, sottrarvi la lunghezza del no- 
me cd inserire il risultato nelle locazioni 
781 e 782. 

Facciamo un esemoio sia ner ri Basic 
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che per il linguaggio macchina. Volendo 
assegnare il nome VIC ad un program* 
ma, in assembly, dopo aver immesso in 
Ire locazioni di memoria successive il co* 
dice ASCII delle lettere V, I e C ( neire- 
se m pio si è cominciato a partire da 
$02 A 7), effettuo: 

LDA $03 
LDX $a7 
U)Y $02 
JSR ffha 


In Basic avrò: 

IO N*="VIC" 

20 LI-PEEK(S3H-PEEK(54l i, 256 
30 LI— LI-LENI N$) 

40 POKE782/L1/256 
SO POKE78LLI — REE Ki 7821 256 
60 POKE7WX EN ( N$ ) 

70 SYS65469 
80 . 

Data la semplicità del primo, commen- 
tiamo solamente 11 secondo listato. 

Alla linea 10 si assegna ad una variabile 
stringa (nel nostro caso N$l il nome dei 
file: in questo modo ci assicuriamo die in 


una qualche parte delta memoria esso e 
stato memorizzato, carattere per caratte- 
re, in codice ASCII, 

p 

m. er conoscere la locazione di inizio di 
tale memorizzazione, assegnami] dappri- 
ma alla variabile -‘LI 1 * il valore dei pun- 
tatore all'ultima stringa memorizzata (li- 
nea 20|, dopodiché vi sottraiamo la lun- 
ghezza del nome (linea 34», Conosciuto 
cosi il valore di tale locazione, ne memo- 
rizziamo il byte alto in 7H2 (linea 40) e 
quello basso in 781 (linea SU), Per finire, 
memorizziamo in 780 la lunghezza del 
nome (linea 60) e chiamiamo questa routi- 
ne con la SYS di linea 70* 

L'ultima avvertenza è che* se non si 
vuole dare il nome al file* bisognerà sola- 
mente caricare Tacco mu latore col valore 
0 e saltare a IT indirizzo di chiamata (non 
sì può omettere questa sottoprocedura in 
quanto ai nostri fini* il suo uso è 
obbligatorio). 

Le routine* SA VE & LO AD 

\ questo punto possiamo passare alle 


routine LO AD e SAVE, cominciando con 
la seconda. 

Scopo di questa, avente l'indirizzo di 
chiamata in 654% ($FFD8), è quello dì 
salvare un segmento di memoria su di un 
dispositivo di input-output. 

Più precisamente, il segmento di me- 
moria va dall'indirizzo presente in due 
locazioni della pagina 11 (vedremo dopo 
cosa significa) fino all 'indi rizzo memoriz- 
zato nei registri X e Y. Prima di usare 
questa routine, logicamente devono esse- 
re richiamate le sotloproeedure prepara- 
torie SfcTLFS e SETNAM. 

Da notare che il salvataggio senza usare 
il nome del file non genera errore sola- 
mente per il dispositivo f (registratore a 
cassette). Ora vediamo come delimit are il 
segmento di memoria da salvare, 

D opti aver precisato che per pagina 
zero si intendono le prime 256 locazioni di 
memoria (numerate da 6 a 255), aggiun- 
giamo che l' indirizzamento indiretto è un 
metodo di program mozione frequente- 
mente usato in linguaggio macchina che, 
per non appesantire la trattazione* si è 
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preferito non riportare In questa sede (gli 
interessati possono consultare le puntate 
sull 'assembler di C.C.C). 

Ài nostri fini, comunque, basterà sol* 
tanto sapere che, per comunicare l’indi- 
rizzo di partenza della zona di memoria 
da salvare, bisogna inserire tale valore, 
sempre nel formato standard byte basso- 
byte alto, In due locazioni libere e conse- 
cutive della pagina 0 (ottime le 253-254) e 
poi caricare l'accumulatore con il nume- 
ro della prima locazione utilizzata per la 
memorizzazione (nel nostro caso 253). 

L'Indirizzo finale, invece, dovrà essere 
contenuto nel registro X (il byte basso) e 
nel registro Y (U byte alto). 

Precisiamo il tutto con due esempi. 
Stabilito che la zona di memoria da 
salvare va da 40% ($1000) a 8192 ($2000), 
per il linguaggio macchina avremo; 


Commentiamo II primo listato; le pri- 
me 4 istruzioni inseriscono nelle locazioni 
della pagina 0 $FD ed $FE (253 e 254) il 
byte basso ed il byte alto del valore di 
inizio della zona di memoria da salvare 
($10001, dopodiché si inserisce nell 'accu- 
mulatore di valore $FD (253) che corri- 
sponde alla locazione dove è stato memo- 
rizzato U byte basso di tale valore di ini- 
zio. Seguono le istruzioni che memorizza- 
no ne| registri X e Y Ptodirtzzo finale 
della zona di memoria da salvare (notare 
vare in questi casi. L’utilità pratica di 
questa routine si ha quando si vuole salva- 


che quest’ultimo è stato aumentato di una 
unità), conclusi dal salto all’indirizzo di 
chiamato. 

Per U listato basic, dove alle variabili 
IN e FI è stato assegnato il valore iniziai te 
finale della zona di memoria da salvare, 
valgono le stesse spiegazioni del listato 
assembly (è stato mantenuto, per quanto 
possibile, una certo correlazione tra le 
varie linee). 

La serie di puntini che precede È due 
Listati indica che, prima di questi due pro- 
grammi, bisogna riportare quelli relativi 
alle routine SELFTS e SETNAM, senza 
dei quali la routine in oggetto si conclude 
in errore. 

Inoltre, il fatto di aumentare di una 
unità il valore finale della zona da salvare 
risponde a precise esigenze del sistema éd 


re su memoria di massa un programma in 
linguaggio macchina o una zona dì memo- 
ria richiamabili mediante la linea; 

1 IFA=0THENA= I:LOAD“NOME 
PRG'\8,1 (sostituire il ,8 con ,1 per il 
registratore). 

Poeto all'inizio del programma Basic 
che ne ha bisogno, mediante la routine 
LOÀD del Keraal che segue oppure me- 
diante il comando diretto; 

LOÀD “NOME PRG’%8,1 anche in que- 
sto caso sostituire il ,8 con ,1 per U 
registratore). 


und udiamo questa puntato sul Ker- 
nel trattando la sottoprocedura LOÀD, 
avente l'indirizzo di chiamata in 65493 
($FFD5), che ha per scopo di caricare 
qualsiasi programma da dispositivo 
esterno in RAM. 

Questa routine, inoltre, può essere usa* 
ta per operazioni di verifica tra il pro- 
gramma salvato su memoria di massa e 
quello presente in RAM (esattamente co- 
me il VERIFY del Basic), 

(/accumulatore, prima del salto all’indi- 
rizzo di chiamato, viene impostato a 0 per 
il caricamento, e a I per ta verifica. An- 
che per questa, prima del suo uso occorre 
chiamare te routine SETLFS e 
SETNAM. 

Se si è usato nella SELFTS l'indirizzo 
1, si ha un caricamento non rilocato (Par- 
gomento “ rilocazione' ’ è stato ampia- 
mente trattato nella prima parte dell’ar- 
ticolo], mentre con indirizzo secondario 0 
il programma viene memorizzato a parti- 
re dalla locazione specificata dal valore 
del registri X e Y, da impostore appro- 
priatomene prima della chiamato. 

Al termine dell'operazione, i registri X 
e Y conterranno l’indirizzo della più alto 
locazione RAM caricato (la fine del 
programma). 

Per il suo uso, veramente molto sempli- 
ce, basterà effettuare in linguaggio 
macchina; 

LDA $00 JSR $ffd5 

ed In Basic; 

100 POKE780,0 1 IO SYS65493 

Sempre dopo aver chiamato te routine 
SETLFS e SETNAM, 

Come bo detto prima, nel caso si sta 
usato l’ indirizzo secondario L, bisognerà 
impostore, prima del JSR (o delia SYS), i 
registri X e Y della locazione dì inìzio 
della memorizzazione. 

Infine, qualora questa routine serve a 
caricare tu RAM un programma Basic, 
subito dopo 11 JSR si dovranno inserire te 
Istruzioni: STX $2D STY S2E 

Per permettere ai puntatori di Inizio 
variabili (e perciò di fine programma) di 
1 essere impostoti correttamente. 

Giovanni V erre Ili 


è una pratica che bisogna sempre osser- 



L DFl 

#$00 


STR 

$FD 


LO Fi 

#$10 


SI Fi 

$FE 

■t 

LDR 

#*FO 


LO# 

mài 


LDV 

#$20 


JSR 

#FFP8 


BRK 

<o RTS > 


meri tre in i c : 


1 00 

IN “4036 :P0KE254, IN/256' 


• 110 

P0KE253 , I H-P EEK C 254 >*256 


120 

POKE780 .253 


1 30 

FI «3192+1 :P0KE782,FI/'2S6 • 


140 

P0KE781 , FI -PEEK<782>*256 


150 

SVS 65496 


vo - Commodore Computer Cìub 



vo 


Q. Nome (facoltativo) 

1. Indirizzo; - — *- 

N r - città — — — 

2. Età: 

□ Meno di 15 anni □ 15- 18 anni 

□ 19-24 annf □ 25-30 anni 

□ 31-45 anni □ 46-65 anni 

□ 31*45 anni 

3. Sesso: 

□ M □ F 

4. Occupazione: 


5* Quale modello di computer possiedi? 

□ Vie 20 senza espansioni 

□ Vie 20 con espansione da 1 6K a oltre 
D C 64 

D C16 

□ Altri modelli Commodore (s 

□ Altre marche (specificare) 

□ Nessun computer. 


Applicando 
Basic (enciclopedia) 

Bit 

Chip 

Commodore 

Commodore Computer Club 
Computer 

r 

Computer ^Electronics 
)0 

Computer 
m nformatiea 


4, Quali periferiche po 
entro fanno? 



c 




Joystick 
Paddfe 
Tavoletta grafica 
Penna ottica 
Registratore a cassette 
Floppy disk 
Stampante 
P lottar 

Printer/jplotter 

Monitor 



□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

□ 


MicrdiBmputer 
elettronica 
ìal Time 

Personal computer 
iinclair Computer 
Sperimentare col computer 
SuperSinc 
SuperVic 
Video giochi 
Zerouno 


7. Come hai avuto questa copia di Commodore 
Computer Club? 

□ L’ho comprata in edicola □ Sono abbonato 

□ Me Tha passata un amico/familiare □ Altro 

8. Da quanto tempo leggi Commodore Computer 
Club? 


Regolar. Saltuar. 


Questa è la prima volta 

□ 

o 

Da qualche mese 

□ 

□ 

Da oltre un anno 

□ 

□ 

Fin dai primi mesi 

□ 

□ 


9. Quali altre pubblicazioni leggi e apprezzi di più? 

Regolar. Sattuar, 

□ □ 

□ □ 

□ □ 

□ a 

□ ' □ 

□ □ 

□ □ 

□ o 

□ □ 

n d 

□ G 

□ □ 

o □ 

o a 

□ o 

□ □ 

□ □ 

□ □ 

□ □ 

.□ □ 

□ □ 

□ □ 

□ □ 

□ □ 

□ □ 

□ □ 

10. Come valuti l'ultimo fascicolo di Commodore 
Computer Club? 

(dai un voto da 0 a 10 per ciascuna delie seguenti voci) 

Lì ve! lo p rof ess iena le 

Varietà degli argomenti — — — - 

Chiarezza espositiva - — — * — 

Approfondimento tecnico 

Tempestività “ _____ 

Grafica/lmpagìnazione — — — 

Pubblicità — — 

1 1. Cosa tl Interessa leggere di più? 

(Ìndica solo te tre voci che per te contano di più) 

□ Articoli didattici sul Basic 

□ Articoli didattici sul linguaggio macchina 

□ Articoli didattici su II 'hardware 

D Recensioni del software in commercio 

□ Giochi brevi in basic 
G Giochi brevi in LM 

□ Routine e programmi di utilità 

□ Appi icaz ioni util i p e r I a casa 

□ Applicazioni utili per Tufficio 

□ Applicazioni utili per la scuola 


c 


12. Come utilizzi il tuo computer? 

(indicare solo te due applicazioni principali) 

□ A Gasa/ per giocare 

□ Per imparare a programmare 

□ Per il mio favoro/il mio studio 
O Quale st rum ento didattico 

□ Altro: 


13* Quanti programmi software possiedi? 


N. 


Li hai comprali oppure te ne hanno regalato 
una copia? 

□ Comprati in un negozio 

□ Comprati In edicola 

□ Copiati 

□ Regalati 

14. Quell rivisto di programmi 
comprare? 


15. Quante ore alla settimana dedichi al 
computer? 

□ Quasi mai □ Meno di un'ora □ 1-5ore 

□ 6 -9 ore □ 10- 19 ore □ 20 ore ed oltre 


hai? 


tuo 





>trasmissij 
Ideoregistr* 
lusica 
Collezi 

17. Oltre te, guanti altri familiari o amici usano 
l^^vnputer? 


Commodore Club 
Idea computer 
LoacTn Run 
MondoSoft 
Next 

Open game 
Peek 

Play games 
Play on tape 
Poke 
Run 

16/46 Sinclair Computer 

sók 

SuperSinc 
S uperCom modero 
Videoteca computer 





□ 

□ 

□ 

□ 

□ 

□ 

□ 

c 

□ 

□ 


□ 

□ 

Q 

□ 

□ 

□ 

□ 

□ 

□ 

n 

□ 

□ 

□ 

□ 


Oltre te, quanti altri familiari o amici leggono la tua 
copia di Commodore Computer Club? 


19. A te capita leggere altre riviste di computer 
comprate da altri tuoi familiari o amici? 

□ si □ no 


20. Puoi Indicare I titoli principati? 


PICCOLI ANNUNCI 
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INVIARE IN BUSTA 
CHIUSA E AFFRANCANDO 
SECONDO LE TARIFFE VIGENTI A 

COMMODORE COMPUTER CLUB 

V.le Famagosta, 75 
20142 Milano 


Due grandi software 

per il tuo 64 




, u a99‘° 


del 6* 


macc" . 


fe/ej®' *«/, 


senza»»" 
, è dispensa 


xs 


ne K 0 


O/o 














